Question

Надо заполнить двумерный массив следующим образом. Пожалуйста помогите ДАЮ 50 БАЛЛОВ!

Answer 1

Ответ:

program z1;

var a:array[1..10,1.. 12] of integer;

i,j,x:integer;

begin

x:=1;

for i:=1 to 10 do

if i mod 2 <> 0 then for j:=1 to 12 do

begin

a[i,j]:=x;

x:=x+1

end

else

for j:=12 downto 1 do

begin

a[i,j]:=x;

x:=x+1

end;

for i:=1 to 10 do

begin

for j:=1 to 12 do write(a[i,j]:5);

writeln

end

end.

Объяснение:

картинка