Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад