Решите задачи: 1) Составьте программу ввода элементов массива [1…

Решите задачи: 1) Составьте программу ввода элементов массива [1… 8] с клавиатуры и вывода на экран элементов массива с отрицательными значениями.2) Составьте программу, которая заполняет массив а [1… 10] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с четными значениями.3) Составьте программу, которая заполняет массив а [1… 10] случайными целыми числами в диапазоне от 1 до 10 и находит сумму элементов с четными значениями и количество элементов с нечетными значениями.4) Составьте программу, которая заполняет массив а [1… 10] случайными целыми числами в диапазоне от 1 до 10, затем элементы с четными индексами удваивает, а элементы с нечетными индексами утраивает. Выведите на экран исходный и полученный массивы.

в избранное

dr_piu

21 февраля 2023

1) uses crt; const n=8; var i: integer; a: array[1… n] of integer; beginwriteln ('Input elements.'); for i: =1 to n doread (a[i]); for i: =1 to n doif a[i]<0 thenwrite (a[i],'); end.2) uses crt; const n=10; var i,t: integer; a: array[1… n] of integer; beginrandomize; t: =0; write ('Массив: '); for i: =1 to n dobegina[i]: =random (10,1); write (a[i],'); if a[i] mod 2=0 thent: =t+1; end; writeln (#13#10,t); end.3) uses crt; const n=10; var i,sum,t: integer; a: array[1… n] of integer; beginrandomize; sum: =0; t: =0; write ('Массив: '); for i: =1 to n dobegina[i]: =random (10,1); write (a[i],'); if a[i] mod 2=0 thensum: =sum+a[i]elset: =t+1; end; writeln (#13#10,sum,',t); end.4) uses crt; const n=10; var i: integer; a: array[1… n] of integer; beginrandomize; for i: =1 to n dobegina[i]: =random (10,1); write (a[i],'); if a[i] mod 2=0 thena[i]: =2*a[i]elsea[i]: =3*a[i]; end; write (#13#10); for i: =1 to n dowrite (a[i],'); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?