const N=4;
var
mas: array[1..N,1..N] of integer;
i, j, sum, count: integer;
begin
sum:=0;
count:=0;
for i := 1 to N do
for j := 1 to N do
begin
write('Введите [',i,',',j,'] элемент массива: ');
readln(mas[i,j]);
sum:=sum+mas[i,j];
if mas[i,j] < 0 then
count:=count+1;
end;
writeln('Сумма элементов массива: ', sum);
writeln('Количество отрицательных элементов массива: ', count);
end.