1)В числовом одномерном массиве все элементы массива,кратные 3,возвести в куб.В новом...

Question

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

Comments

В первой программе: элементы массива водите сами? Во второй программе: Больше среднего арифметического все элементов?

Answer 1

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.