разделов типа. массивы

uses crt;
const n = 20;
type mas = array[1..n] of integer;
var A: mas;
    i,k: integer;
begin clrscr;
randomize;
writeln('Ìàññèâ: ');
for i:=1 to n do begin
A[i]:=random(101)-50;
write(A[i]:4);
end;
writeln;
for i:=1 to n do
  if A[i]<0 then begin
  write('A[',i,'] = ',A[i],';');
  break end;
readkey
end.

program ange2011_2;
uses crt;
const m=5; n=3;
var
a:array[1..m,1..n] of integer;
i,j:byte;
sum:integer;
begin clrscr;
sum:=0;
randomize;
writeln('    Массив ',m,'x',n);
for i:=1 to m do begin
 for j:=1 to n do begin
  a[i,j]:=random(20)-10;
  write(a[i,j]:5);
  end;
 writeln;
if a[i,2]>0 then
sum:=sum+a[i,2];
end;
writeln;
writeln('Сумма положительных элементов второго столбца  = ',sum);
readln;
end.

program ange2011_3;
uses crt;
const m=5; n=5;
var
a:array[1..m,1..n] of integer;
i,j:byte;
min:integer;
begin clrscr;
min:=100;
randomize;
writeln('    Массив  ',m,'x',n);
for i:=1 to m do begin
 for j:=1 to n do begin
  a[i,j]:=random(min)-30;
  write(a[i,j]:5);
  if (a[i,j]<min) and (a[i,j]>0) then
  min:=a[i,j];
  end;
 writeln;
 
end;
writeln;
writeln('Наименьшен среди положительных = ',min);
readln;
end.

uses crt;
const d = 4;
type mas = array[1..d,1..d] of integer;
var A: mas;
    i,j,s1,s2: integer;
begin clrscr;
randomize;
writeln('Ìàòðèöà: ');
for i:=1 to d do begin
  for j:=1 to d do begin
  A[i,j]:=random(10);
  write(A[i,j]:4);
  end;
writeln end;
for i:=1 to d do
  for j:=i+1 to d do
  s1:=s1+A[i,j];
for i:=d downto 1 do
  for j:=i-1 downto 1 do
  s2:=s2+A[i,j];
writeln;
writeln('S1: ',s1);
writeln('S2: ',s2);
readkey
end.