Question

Возвести в куб нечётные числа от 1 до 20 (В Паскале)

Answer 1

var a:array[0..19] of integer;
i:integer;
begin

For i:=0 to 19 do
begin

a[i] := i + 1;
write(a[i], ' ');

end;
writeln();

for i:=0 to 19 do

begin
if i mod 2 = 0 then a[i] := a[i]*a[i]*a[i];
write(a[i], ' ');
end;
end.