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

const R=20; //размер массиваVar a: array [1..R] of integer; i: integer;begin//заполняем массив рандомными числами от 0 до 20for 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.