Информатика - паскальабс. 10 класс. Массивы.

Заполнить массив размерностью 7x7 по правилу *.

000000

000000

000000

1 1 1 1 1 1

1 1 1 1 1 1

1 1 1 1 1 1

Const n=6;

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

i, j:integer;

begin

for i:=1 to n div 2 do

for j:=1 to n do a[i, j]:=0;

for i:=n div 2+1 to 6 do

for j:=1 to n do a[i, j]:=1;

for i:=1 to n do

begin

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

writeln;

end;

end.

Результат:

0 0 0 0 0 0

0 0 0 0 0 0

0 0 0 0 0 0

1 1 1 1 1 1

1 1 1 1 1 1

1 1 1 1 1 1