Question

Pascal:Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Найти суммы отрицательных элементов каждого столбца.

Answer 1

Const n=10 ; m=10;
var A: array [1..n,1..m] of integer;
s, i, j: integer;
begin
randomize;
for i:= 1 to n do
begin
for j:= 1 to m do
begin
A[i,j]:= -100 + random (100);
write (A[i,j]: 5);
end;
writeln;
end;
for i:= 1 to n do 
 begin
    s:=0;
  for j:= 1 to m do  
     if A[i,j] < 0 then s:=s+A[i,j];
  writeln('s   ',i,'   столбца=' , s);
end;
end.

Answer 2

Задача

Вам дан двумерный массив, содержащий не более 10 строк и не более 10 столбцов. Ваша задача - найти суммы отрицательных элементов каждого столбца.

Решение

Для решения этой задачи вам потребуется пройти по каждому столбцу массива и найти сумму отрицательных элементов в каждом столбце. Вот алгоритм, который вы можете использовать:

1. Создайте переменные для хранения сумм отрицательных элементов каждого столбца. Начальные значения сумм равны 0. 2. Пройдите по каждому столбцу массива. 3. Внутри каждого столбца пройдите по каждому элементу. 4. Если элемент отрицательный, добавьте его к сумме отрицательных элементов столбца. 5. После завершения прохода по столбцу, сохраните сумму отрицательных элементов в соответствующей переменной. 6. Повторите шаги 2-5 для каждого столбца массива. 7. Выведите суммы отрицательных элементов каждого столбца.

Пример кода на языке Pascal:

const
  MAX_ROWS = 10;
  MAX_COLS = 10;

var
  arr: array[1..MAX_ROWS, 1..MAX_COLS] of integer;
  colSums: array[1..MAX_COLS] of integer;
  i, j: integer;

begin
  { Здесь инициализируйте массив arr }

{ Обнуляем суммы столбцов }
  for i := 1 to MAX_COLS do
    colSums[i] := 0;

{ Проходим по каждому столбцу и считаем суммы отрицательных элементов }
  for j := 1 to MAX_COLS do
  begin
    for i := 1 to MAX_ROWS do
    begin
      if arr[i, j] < 0 then
        colSums[j] := colSums[j] + arr[i, j];
    end;
  end;

{ Выводим суммы отрицательных элементов каждого столбца }
  for j := 1 to MAX_COLS do
    writeln('Сумма отрицательных элементов в столбце ', j, ': ', colSums[j]);
end.

Примечание: В приведенном выше коде предполагается, что массив `arr` уже заполнен значениями. Вы можете изменить размеры массива `MAX_ROWS` и `MAX_COLS` в соответствии с вашими требованиями.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.