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

Program Z_3;
uses crt;
const n=5;
var i,j,s,d:byte;a:array[1..5,1..5]of byte;
begin
for i:=1 to n do
begin     
for j:=1 to n do     
begin     
if (i=1+s)and(j=n-s) then begin d:=1; a[i,j]:=10;end;   
 if d=0   then a[i,j]:=1   
           else if (i=1+s)and(j=n-s) 
           then a[i,j]:=10;     
write( ,a[i,j], );     
end;
writelns:=s+1;d:=0;
end;
end.


program Z_4;
uses crt;
const n=5;
var i,j,m:byte;a:array[1..5,1..5]of byte;
begin
m:=1;j:=n;
for j:=n downto 1 do
  for i:=1 to n do
begin     a[j,i]:=m;     m:=m+1;     end;
end;
for i:=1 to n do
begin
  for j:=1 to n do
if a[i,j]   then write( 0,a[i,j], )
   else write( ,a[i,j], );
writeln;
end;
end.