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

1

Ответы и объяснения

2013-04-09T17:09:59+04:00

const N = 20;
var
a: array[1..N] of integer;
i: integer;
begin
for i := 1 to N do begin
a[i] := random(10);
write(a[i], ' ');
end;
writeln;writeln;
for i := 1 to N do begin
if(a[i] mod 2 <> 0) then a[i] := sqr(a[i]) * a[i];
write(a[i], ' ');
end;
end.