сформировать одномерный массив как сумму отрицательных элементов строк матрицы

[Андрей564]

Народ помогите пожалуйста буду очень благодарен. Нужно написать схемку алгоритма и программку, где основной функционал программы оформлен в виде подключаемого модуля. Нужно сделать пользовательское меню к этой программке, еще возможность сохранения и загрузки данных из файла.
Задание.
Ввести с клавиатуры массив, который состоит из 7 строк и 5 столбцов. Создать модуль, в котором будет находится функция, которая производит вычисления согласно заданию ниже.

Сформировать одномерный массив как отрицательных элементов строк матрицы. ( Тип элементов матрицы: целый).

P.S Прошу сможете написать, а то у самого ничего что-то не выходит. Язык TurboPaskal

Я в этом очень плохо разбираюсь, но сдать нужно помогите пожалуйста.

[Stilet]

Модуль:

unit main;
interface
 function menu:integer;
 function Load;
 function Save;
implementation
 var a:array[1..7,1..5] of integer; b:array[1..5*7] of integer;

 function menu;
 var i:integer;
 begin
  writeln('1-Открыть, 2-Закрыть, 3-Свалить. Че выбираешь, бро?');
  readln(i);
  menu:=i;
  clrscr;
 end;

 function Load;
 var f:file;k,i,j:integer;
 begin
  Assign(f,'Файло'); reset(f); BlockRead(f,a,sizeof(a)); close(f); k:=1;
  for i:=1 to 7 do begin
   for i:=1 to 5 do begin
    if a[i,j]<0 then begin b[k]:=a[i,j]; write(b[k]:5); inc(k); end;
   end;
  end;
 end;
 
 function save;
 var f:file;i,j:integer;
 begin
  for i:=1 to 7 do begin
   for i:=1 to 5 do begin
    readln(a[i,j])
   end;
  end;
  Assign(f,'Файло'); rewrite(f); BlockWrite(f,a,sizeof(a)); close(f);
 end;

Прога:

uses main;
var i:integer;
begin
 repeat
  i:=menu;
  case i of 1:Load; 2:Save; end;
 until i=3;
end.

Годится?

[Андрей564]

А это на Paskal код? И вопросик а можно еще схемку алгоритма выложить если не трудно, но если нет тогда спасибо и за это.

[Stilet]

А это на Paskal код?

Неа. На Pascal. А что?

можно еще схемку алгоритма

Неа. Нема у мну рисовалки схем под рукой.

[Андрей564]

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

Неа. На Pascal. А что?

Так я не понял на Paskal или нет?

Неа. Нема у мну рисовалки схем под рукой.

Ну что нет так нет спасибо и на этом.

[Bugrimov]

Андрей564 Вам просто подсказали, что слово ПАСКАЛЬ пишется - Pascal Вот и все.

[Андрей564]

У меня что-то программа не пашет

[Stilet]

Так я не понял на Paskal или нет?

Нет, это не Paskal.
Я Paskal не знаю. Я Делфиец.

[newerow1989]

Stilet, а может так:

function menu:integer;
procedure Load;
procedure Save;

[Stilet]

Ну да. Очепятка.