Заполнить двумерный массив 5x7 по заданному правилу - Pascal ABC

Формулировка задачи:

Заполнит двумерный массив 5x7 по следующему правилу
1 0 2 0 3 0 4
0 5 0 6 0 7 0
8 0 9 0 10 0 11
0 12 0 13 0 14 0

Код к задаче: «Заполнить двумерный массив 5x7 по заданному правилу - Pascal ABC»

textual
var a:array[1..m,1..n] of integer;
    i,j,k:integer;
begin
k:=0;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if odd(i+j) then a[i,j]:=0
    else
     begin
      inc(k);
      a[i,j]:=k;
     end;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.

7   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ