1)в числовом одномерном массиве все элементы массива,кратные 3,возвести в куб.в новом массиве найти сумму всех членов массива. 2)в числовом одномерном массиве все элементы массива,большие среднего арифметического,уменьшить в 2 раза и вывести этот массив

151

294

Посмотреть ответы 2

Ответы на вопрос:

Snezhana200511

Информатика

4,8(31 оценок)

Const n=5; var a: array [1..n] of integer; k,j: real; i: integer; beginfor i: = 1 to n do begina[i]: =random(101); write (a[i],' '); end; writeln; for i: = 1 to n do begink: = a[i] mod 3; if k=0 thena[i]: =a[i]*a[i]*a[i]; end; for i: = 1 to n do beginwrite (a[i],' '); end; j: =0; writeln; for i: = 1 to n do beginj: =j+a[i]; end; write (j); end.