СРОЧНО!
Написать программу заполнения двумерного массива (7Х7) 1 2 3 4 5 6 7
7 6 5 4 3 2 1
1 2 3 4 5 6 7
7 6 5 4 3 2 1... и т.д.
Написать программу заполнения двумерного массива (7Х7) 1 2 3 4 5 6 7
7 6 5 4 3 2 1
1 2 3 4 5 6 7
7 6 5 4 3 2 1... и т.д.
More Questions From This User See All
Answers & Comments
i, j: integer;
begin
for i := 1 to 7 do
begin
for j := 1 to 7 do
begin
if(odd (i)) then a[i, j] := j
else a[i, j] := 8 - j;
write(a[i, j]:2);
end;
writeln();
end;
end.