Составить программу нахождения суммы положительных и количества отрицательных элементов двумерного массива А(3,5).

var a:array[1..100,1..100]of integer;
sum,N, M, i, j, mini, minj, maxi, maxj :integer;
 
begin
 write('N, M -> ');
 readln(N, M); {считываем размер матрицы}
 write('Input matrix -> ');
 for i:=1 to N do for j:=1 to M do
 begin
  write('A[',i,',',j,'] -> ');
  readln(a[i, j]);
 end; {считываем саму матрицу}
 readln;
 mini:=1;
 minj:=1;
 maxi:=2;
 maxj:=2;
 for i:=1 to N do for j:=1 to M do if a[i,j] > a[maxi, maxj] then
 begin
  maxi := i;
  maxj := j;
 end else if a[i, j] < a[mini, minj] then
 begin
  mini := i;
  minj := j;
 end;
 writeln('MAX = A[',maxi,',',maxj,'] = ', a[maxi, maxj]);
 writeln('MIN = A[',mini,',',minj,'] = ', a[mini, minj]);
sum:=mini+maxj;
writeln(sum); 
readln;
end.

var a:array[1..100,1..100]of integer;
sum,N, M, i, j, s,f :integer;
 
begin
 write('N, M -> ');
 readln(N, M); {считываем размер матрицы}
 write('Input matrix -> ');
 writeln;
 for i:=1 to N do for j:=1 to M do
 begin
    a[i, j]:=random(20)-10;
 end;
  for i:=1 to n do begin
  for j:=1 to m do begin 
  write(a[i,j]:4);
 end;
 writeln;
 end;
for i:=1 to n do begin
for j:=1 to m do begin
if a[i,j]>0 then s:=s+a[i,j];
if a[i,j]<0 then inc(f);
end;
end;
write('Количество отрицательных= ',f);
writeln;
write('Сумма положительных= ',s); 
end.

var a:array[1..100] of integer;
i,n,s,f:integer;
begin
write('Введите размер массива: ');
readln(n);
for i:=1 to n do begin
a[i]:=random(20)-10;
end;
writeln;
writeln('Полученный массив: ');
for i:=1 to n do begin
write(a[i],' ');
end;
writeln;
for i:=1 to n do begin
if a[i]<0 then inc(f);
if (i mod 2=0) then s:=s+a[i];
end;
write('Отрицательных элементов= ',f);
writeln;
write('Сумма элементов стоящих на четных местах= ',s);
end.