Ответы
Ответ дал:
0
Ответ:
program Ex1;
var
A: array [1..21] of Integer;
i, j: Integer;
begin
j := -10;
for i := Low (A) to High (A) do begin
A [i] := j;
Write (A [i], ' ');
Inc (j);
end;
ReadLn;
end.
program Ex2;
var
A: array [1..21] of Integer;
i, j: Integer;
begin
j := -10;
for i := Low (A) to High (A) do begin
A [i] := j;
Write (A [i], ' ');
Inc (j);
end;
WriteLn;
for i := Low (A) to High (A) do begin
A [i] := A [i] * A [i];
Write (A [i], ' ');
end;
ReadLn;
end.
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад