Одномерный Массив

program lab1;
uses crt;
 
const n=6;
type
 matr = array[1..n,1..n] of integer;
 
{формирование матрицы}
procedure formir(var a:matr;k:integer);
var
 i,j:integer;
begin
 randomize; {включаем генератор случайных чисел}
 for i:=1 to k do {генерируем матрицу}
  for j:=1 to k do
   a[i,j]:=Random(20)-10;
end;
 
{вывод матрицы}
procedure vivod(a:matr;k:integer);
var
 i,j:integer;
begin
 for i:=1 to k do
  begin
   for j:=1 to k do
    write(a[i,j]:4);
   writeln;
  end;
end;
 
{функция, вычисляющая количество строк, не содержащих ни одного нулевого элемента*}
function kolvo(a:matr):integer;
var
 i,j,t,s,k:integer;
begin
s:=0;
for i:=1 to n do
 t:=0; k:=0;
 for j:=1 to n do begin
     t:=t+a[i,j];
        if (a[i,j]<0) then inc(k);
      end;
     if k>0 then
      s:=s+t;
writeln('Сумма элементов строки содержащей хотя бы один отрицательный элемент = ',s);
end;
 
procedure nomera(a:matr;k:integer);
var
 max,min,i,j:integer;
begin
for i:=1 to n do
 begin
 min := 1;
 for j:=1 to N do
  if a[i,j]<a[i,min] then min := j;
 max := 1;
 for k:=1 to n do
   if a[k,min]<a[max,min] then max := k;
 if max = i then writeln('Точка matr[',max,',',min,'] седловая');
 end;
end;
 
var
 a:matr;
 i:integer;
 
begin
 clrscr;
 formir(a,n);
 writeln('Целочисленная квадратная матрица: ');
 vivod(a,n);
 kolvo(a);
 nomera(a,n);
end.