Задача в Паскале на двухмерные массивы (вывод матрицы)

[Диман-Качуг]

"Дана
целочисленная
матрица размера M *
N . Найти сумму
отрицательных
элементов каждого
столбца матрицы?"
помогите пожалуйста..
напишите кто может всю программу в
Pascal ! И желательно всю,от начала до конца..очень срочно нужно
Спасибо большое за
ранее всем кто поможет

[Mad_Cat]

1$)
контакты в подписи)

[Диман-Качуг]

У меня кроме телефона,нет ни какого интернета помоги пожалуйста..я с паскалем впервые,я сам с деревни..а там такого с роду не было...максимум в экселе работали ! Напиши программу,пожалуйста...мне это очень надо

[vovk]

Сообщение от Диман-Качуг

У меня кроме телефона,нет ни какого интернета помоги пожалуйста..я с паскалем впервые,я сам с деревни..а там такого с роду не было...максимум в экселе работали ! Напиши программу,пожалуйста...мне это очень надо

если очень надо = читай учебник.

ЗЫ тут нет вопроса, тут только просьба написать код, а это в другой раздел.
ЗЫЗЫ Я тоже из деревни, и что?

[Диман-Качуг]

напишите пожалуйста )) очень прошу если вы это хорошо понимаете,почему вам не помочь?

[Sparkman]

uses crt;
const m=5; // количество столбцов
      n=4; // количество строк
var arr : array [1..n,1..m] of integer; // целочисленная матрица
    i,j:integer; // индексы
    res:array [1..m] of integer; // вектор с результатами - суммы отрицательных элементов
begin
     clrscr; // очищение матрицы
     randomize; // вызов процедуры генерации случайных чисел
     writeln('Matrix:');
     for i:=1 to n do
     begin
          for j:=1 to m do
          begin
               arr[i,j]:=random(10)-5; // заполнение матрицы числами от -5 до +5
               write(arr[i,j]:3); // вывод элемента матрицы с отступом в 3 знака
          end;
          writeln;
     end;
     writeln;
     for j:=1 to m do
     for i:=1 to n do
     if arr[i,j]<0 then res[j]:=res[j]+arr[i,j]; // подсчет суммы отрицательных числе в каждом столбце
     writeln('Summa:');
     for j:=1 to m do
     begin
          write(j,') ');
          writeln(res[j]); // вывод результата
     end;
     readln;
end.