Question

Дан двумерный массив 5 на 7. Заполнить его следующим образом. ПОМОГИТЕ ДАЮ 30 БАЛЛОВ!

Answer 1

var a: array [1..5,1..7] of integer;

i,j:integer;

begin

 a[1,1]:=1;

 i:=1;

 for j:=2 to 7 do a[i,j]:=a[i,j-1]+1;  

  for i:=2 to 5 do a[i,j]:=a[i-1,j]+1;  

   for j:=6 downto 1 do a[i,j]:=a[i,j+1]+1;  

    for i:=4 downto 2 do a[i,j]:=a[i+1,j]+1;  

     for j:=2 to 6 do a[i,j]:=a[i,j-1]+1;  

     for i:=3 to 4 do a[i,j]:=a[i-1,j]+1;  

     for j:=5 downto 2 do a[i,j]:=a[i,j+1]+1;  

     a[3,2]:=32;

     i:=3;

      for j:=3 to 5 do a[i,j]:=a[i,j-1]+1;

      for i:=1 to 5 do begin

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

        writeln;

        end;

     

end.