Дайте подсказку по задаче

[vladimir.ows]

Дан двомерный масив 5*8(А[1..8, 1..5]): найти номер столбика с найменьшим количеством отрицательних чисел и добавить ето значение к соответствующим елементам масива

[VIK_aka_TOR]

самый простой.... создаешь ещё один массив, размерностью 1 на количество_столбцов... каждый элемент нового массива - сталбец первого... и i элемент нового масива инкрементируешь (+1) при каждом нахождении в этом столбце отрицательного столбца... затем находишь в новом масиве наибольшее число (тобишь количество отрицательных элементов в столбце в первом масиве...) и затем плюсуешь куда нужно...

[vladimir.ows]

напишите пожалуйста сам текст решения
очень нужно!на завтра
просто я вообще ноль в этом!

[VIK_aka_TOR]

как то так...

var
a:array[1..8,1..5] of integer;
b:array[1..5] of integer;
n,m,i,j,max,index:integer;
begin
n:=8;
m:=5;
for i:=1 to n do // ввдим значения матрицы
for j:=1 to m do
begin
Write('a[',i,',',j,']=');
readln(a[i,j]);
end;          // закончили вводить значения матрицы

for i:=1 to n do    // вывод введенной матрицы
begin
    for j:=1 to m do
    write(a[i,j]:3);
    writeln();
end;



 for i:=1 to n do     // подсчет количества отриц элементов в столбце j
 for j:=1 to m do
 if (a[i,j] < 0) then
    inc(b[j]);   // если <0 в строке есть +1 к b[j]
    max:= b[1];

for i:=1 to m do  // поиск максимального количества отриц значений
if (max < b[i]) then
   begin
   max:=b[i];
   index:=i;
    end;
    
for i:=1 to n do  // плюсуем количество отрицательных элементов столбца в этот же столбец, с максимальным ко-вом отриц значений
    a[i,index]:=a[i,index] + max;
    

writeln();
for i:=1 to n do    // вывод окончательной матрицы
begin
    for j:=1 to m do
    write(a[i,j]:3);
    writeln();
end;
end.

жмякай на весы... оставь положительный комент)

[vladimir.ows]

Спасибо большое!!!