Дан массив целых чисел C (20) все нечетные элементы заменить на кубы sqr (A[ i]*A [ i ].

const R=20; / /размер массива

Var a: array [1 ... R] of integer;

i: integer;

begin

//заполняем массив рандомными числами от 0 до 20

for i:=1 to R do a[i]:=random (20);

//выводим исходный массив

write ('Исходный массив: ');

for i:=1 to R do write (a[i], ' ');

Writeln ();

//Производим проверку: если элемент нечётный, то заменяем его на свой квадрат

for i:=1 to R do

begin

if (a[i] mod 2 = 1) then a[i]:=a[i]*a[i];

end;

//выводим новый массив

write ('Новый массив: ');

for i:=1 to R do write (a[i], ' ');

end.