Заполнить двумерный массив следующим образом:12 24 ... 120..................2 14 ... 1101 13 ... 109
Заполнить двумерный массив следующим образом:
12 24 ... 120
..................
2 14 ... 110
1 13 ... 109
Гость
Ответ(ы) на вопрос:
Гостьvar a:array[1..12,1..10] of integer;
i,j:integer;
begin
for i:=1 to 10 do
a[1,i]:=i*12;
for i:=2 to 12 do
for j:=1 to 10 do
a[i,j]:=a[i-1,j]-1;
for i:=1 to 12 do begin
for j:=1 to 10 do
write(a[i,j]:4);
writeln;
end;
end.
Не нашли ответ?
Похожие вопросы