program ghf;
uses crt;
const kolN=4;
 
var A:array[1..100,1..100] of integer; {инициализация массива}
    i,j:integer;
 
function kolvo(i:integer):integer; {функция, определ-яя кол-во отрицательных элементов}
var rez:integer;
begin
rez:=0;
for j:=1 to kolN do
if A[i,j]<0 then inc(rez);
kolvo:=rez;
end; {--- конец функции}
 
function summa:integer;{функция, определ-яя сумму отрицательных элементов}
var rez:integer;
begin
rez:=0;
for i:=1 to kolN do
for j:=1 to kolN do
if A[i,j]<0 then rez:=rez+A[i,j];
summa:=rez;
end; {--- конец функции}
{----------------начало программы---------------------------------------}
begin
 
for i:=1 to kolN do
for j:=1 to kolN do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end;  {считывыаем массив с экрана}
clrscr;
write ('Vot vvedennyy vami massiv N:');
for i:=1 to kolN do begin writeln;
for j:=1 to kolN do write (A[i,j]:3,' '); end;   {выводим массив на экран}
writeln;writeln;
 
writeln('Kol-vo otric. kazhdoi stroki massiva:');
for i:=1 to kolN do write(kolvo(i),' '); {выводим кол-во отрицательных элементов в каждой строке }
writeln;writeln;
 
writeln('Summa otric. cisel: ',summa); {выводим сумму отрицательных элементов }
 
readln;
end.