1) Заполнить массив по следующему принципу: 1 1 1 1 10 1 1 1 10 0 1 1 10 0 0 1 10 0 0 0 10 0 0 0 0 2) Заполнить массив по следующему принципу: 21 22 23 24 25 16 17 18 19 20 11 12 13 14 15 6 7 8 9 10 1 2 3 4 5

1) program zz1;

const n = 5;

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

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

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

begin

k:=b;

for i:=1 to n do

for j:=1 to b do

begin

m[i, j]:=1;

if j>k then begin m[i, j]:=m[i, j]*0; end;

if j=k then begin m[i, j]:=m[i, j]*10; 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.

2) program zz1;

const n = 5;

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

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

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

begin

k:=1;

for i:=n downto 1 do

for j:=1 to b do

begin

m[i, j]:=k;

k:=k+1;

end;

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

begin

for j:=1 to b do

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

writeln;

end;

end.