Пожалуйста помогите написать програмку

[Данил28]

Прошу помощи, я совсем зелёный в этом деле, надеюсь на вашу помощь.
Дан целочисленный массив размерности n x m. значение элементов матрицы вводятся с клавиатуры. Найти сумму элементов в тех столбцах, которые содержат хотя бы один отрицательный элемент. Вывести новый массив.

Задав двумерный массив целочисленных данных ( матрицу ), реализовать её обработку. Исходные данные задать самостоятельно, учитывая специфику задачи. В программе должны быть предусмотрены процедуры ввода-вывода элементов массива и его обработки.

[NetSpace]

"зелёный" и "ленивый" - это два разных слова. где наработки, неработающий, но ваш написанный код?

[ViktorR]

Дан целочисленный массив размерности n x m. значение элементов матрицы вводятся с клавиатуры. Найти сумму элементов в тех столбцах, которые содержат хотя бы один отрицательный элемент. Вывести новый массив.

Вот алгоритм, который позволит решить задачу:

1. Описать тип данных в виде массива m*n. Эти числа не следует брать большими, так как руками вводить долго.
2. Описываем процедуру ввода элементов массива, например, с именем GetMas().

3. Описываем процедуру подсчёта суммы элементов столбцов с условием задачи: MySum().
   3-а. Описываем тип переменной для подсчёта суммы (пусть это sum) и тип переменной, которая 
      будет флажком (логический тип) - flag.
   3-б. Описываем заголовок цикла типа for для просмотра массива по столбцам
      3-б.а Обнуляем сумму и флажок делаем false:     sum = 0; flag = Фальшь;
      3-б.б Описываем заголовок цикла для просмотри массива по строкам
         3-б.ба Суммируем элементы массива sum = sum + mas[stroka][stolbec]
             если элемент массива меньше нуля, то flag = Истина
      Конец цикла по строкам
      Если flag Истина, то выводим номер столбца и сумму его элементов
   Конец цикла по столбцам

Тело программы:
   Вызвать процедуру получения элементов массива
   Вызвать процедуру подсчёта суммы
Конец тела программы

PS: Можно было бы и точнее, но экстрасенсорными данными не обладаю и на каком языке писать не знаю.

[digitalis]

"Эх, - сказал Данил28 . - Столько буквав. Код наклепать было бы короче"

[Данил28]

Сообщение от NetSpace

"зелёный" и "ленивый" - это два разных слова. где наработки, неработающий, но ваш написанный код?

Нам в универе задали написать эту программу, а я ни разу в жизни не писал ничего подобного. Я бы рад был сам разобраться, но я чисто физически не успею.

[Данил28]

Сообщение от digitalis

"Эх, - сказал Данил28 . - Столько буквав. Код наклепать было бы короче"

Вам легко говорить

[digitalis]

Да не только говорить - и сделать было бы легко. Но, как минимум

на каком языке писать не знаю

На ЯСК для М-32 годится?
ViktorR ведь всё разложил по полочкам, осталось только заменить слова операторами языка. Что такое "оператор" и какие они бывают - вам в вузе уже говорили?

[Данил28]

Сообщение от digitalis

Да не только говорить - и сделать было бы легко. Но, как минимум
На ЯСК для М-32 годится?

Мне нужно на Pаscal ABC )

[Данил28]

Сообщение от digitalis

Да не только говорить - и сделать было бы легко. Но, как минимум
На ЯСК для М-32 годится?
ViktorR ведь всё разложил по полочкам, осталось только заменить слова операторами языка. Что такое "оператор" и какие они бывают - вам в вузе уже говорили?

У меня профессия никак не связана с информатикой, нас на втором курсе перед фактом поставили, что надо сделать. А у меня знаний 0.

[Данил28]

Сообщение от ViktorR

Вот алгоритм, который позволит решить задачу:

1. Описать тип данных в виде массива m*n. Эти числа не следует брать большими, так как руками вводить долго.
2. Описываем процедуру ввода элементов массива, например, с именем GetMas().

3. Описываем процедуру подсчёта суммы элементов столбцов с условием задачи: MySum().
   3-а. Описываем тип переменной для подсчёта суммы (пусть это sum) и тип переменной, которая 
      будет флажком (логический тип) - flag.
   3-б. Описываем заголовок цикла типа for для просмотра массива по столбцам
      3-б.а Обнуляем сумму и флажок делаем false:     sum = 0; flag = Фальшь;
      3-б.б Описываем заголовок цикла для просмотри массива по строкам
         3-б.ба Суммируем элементы массива sum = sum + mas[stroka][stolbec]
             если элемент массива меньше нуля, то flag = Истина
      Конец цикла по строкам
      Если flag Истина, то выводим номер столбца и сумму его элементов
   Конец цикла по столбцам

Тело программы:
   Вызвать процедуру получения элементов массива
   Вызвать процедуру подсчёта суммы
Конец тела программы

PS: Можно было бы и точнее, но экстрасенсорными данными не обладаю и на каком языке писать не знаю.

Добрый день, на Pascal ABC надо написать.