Дана матрица А(4х4). Определить количество отрицательных элементов каждой строки массива. Найти сумму этих чисел (количество отрицательных элементов всего массива) — Pascal(Паскаль)

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.

Leave a Comment