1) Заполнить массив по следующему принципу: 6 7 18 19 30 315 8 17 20 29 324 9 16 21 28 333 10 15 22 27 342 11 14 23 26 351 12 13 24 25 36

program zz1;

const n = 6;

b = 6; / / задаем количество элементов в массиве

var i, j, k:integer; / / задаем переменные целого типа

m:array [1 ... n, 1 ... b] of integer;

begin

k:=1;

for j:=1 to b do

begin

if j mod 2 = 1 then for i:=n downto 1 do begin m[i, j]:=k; k:=k+1; end; / / если номер столбца нечетный, то заполняем его снизу вверх

if j mod 2 = 0 then for i:=1 to n do begin m[i, j]:=k; k:=k+1; end; / / если номер столбца четный, то заполняем его сверху вниз

end;

for i:=1 to n do / / выводим полученный массив на экран

begin

for j:=1 to b do

write (m[i, j]:4);

writeln;

end;

end.