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

program z5;

var
  a1: array [1 .. 100, 1 .. 100] of integer;
  i, j, b, n: integer;

procedure plus;
var
  minus: boolean;
  summa: integer;

begin
  summa := 0;
  for i := 1 to b do
  begin

    minus := false;
    for j := 1 to b do
      if a1[j, i] < 0 then
        minus := true;

    if minus = true then
    begin
      for n := 1 to b do
        summa := summa + a1[i, n];
      writeln('summa vseh elemov= ', summa, '=', i, '-go stolbca');
    end;
  end;

end;

begin

  writeln('inut b');
  read(b);

  for i := 1 to b do
  begin
    for j := 1 to b do
    begin
      a1[i, j] := 19 - random(22);
      write(' ', a1[i, j]:3);
    end;
    writeln();
  end;

  plus;

end.

Результат работы программы

Leave a Comment

86 + = 91