заполнить массив А размером NxM следующим образом:
1 8 9 16 17 24 25 32
2 7 10 15 18 23 26 31
3 6 11 14 19 22 27 30
4 5 12 13 20 21 28 29
В паскале
1 8 9 16 17 24 25 32
2 7 10 15 18 23 26 31
3 6 11 14 19 22 27 30
4 5 12 13 20 21 28 29
В паскале
Answers & Comments
const n=4; m=8;
var a:array[1..n,1..m] of integer;
i,j,x: integer;
begin
x:=1;
for j:=1 to m do
begin
for i:=1 to n do
begin
a[i,j]:=x;
if (j mod 2 = 0) and (i<>n) then x:=x-1
else x:=x+1
end;
x:=x+n-1
end;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:5);
writeln
end
end.