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.