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

12 24 ... 120

...

2 14 ... 110

1 13 ... 109

Question

Информатика

Света

1 июня, 07:02

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

12 24 ... 120

...

2 14 ... 110

1 13 ... 109

+3

Ответы (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