Заполнить двумерный массив следующим образом:

12 24 ... 120

...

2 14 ... 110

1 13 ... 109

Question

Информатика

Гаврил

3 августа, 20:33

Заполнить двумерный массив следующим образом:

12 24 ... 120

...

2 14 ... 110

1 13 ... 109

+5

Ответы (1)

Знаете ответ?

Хрисанф · Answer 1

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.

Заполнить двумерный массив следующим образом:12 24 ... 120...2 14 ... 1101 13 ... 109

Заполнить двумерный массив следующим образом:

12 24 ... 120

...

2 14 ... 110

1 13 ... 109