Paskal процедуры и функции

[Fromki]

Летучий_СкилетиК, красным помечено то, для чего использовать процедуры и функции:
Вводится матрица MT (n,m) с цифровой информацией. Составить программу нахождения в строках матрицы отрицательных (<0) элементов, подсчета их количества и сумм. Получить новую матрицу, в которой элементы будут представлены числами, полученными от деления суммы отрицательных элементов по строке на значение конкретного элемента. Исходные, промежуточные и результатные данные вывести на дисплей.

[Fromki]

Летучий_СкилетиК, красным помечено то, для чего использовать процедуры и функции:
Вводится матрица MT (n,m) с цифровой информацией. Составить программу нахождения в строках матрицы отрицательных (<0) элементов, подсчета их количества и сумм. Получить новую матрицу, в которой элементы будут представлены числами, полученными от деления суммы отрицательных элементов по строке на значение конкретного элемента. Исходные, промежуточные и результатные данные вывести на дисплей.

[Летучий_СкилетиК]

Летучий_СкилетиК, красным помечено то, для чего использовать процедуры и функции:

Я хорошо понял условие задачи, а вот вы отказываетесь указать как конкретно вы хотите использовать процедуры/функции! может (запихать весь код в процедуру/функцию? производить ввод вывод данных при вызове процедуры/функции, производить поиск при помощи процедуры/функции).Укажите

[Fromki]

для помеченного красным все что можно сделать, тобижь все

[Fromki]

мне поможет кто-нибудь?

[Летучий_СкилетиК]

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

мне поможет кто-нибудь?

вам выложили код по которому вам только осталось запхунуть что надо в процудуру/функцию

[Fromki]

Сообщение от Летучий_СкилетиК

вам выложили код по которому вам только осталось запхунуть что надо в процудуру/функцию

я этого не сделаю, у меня не получится

[tools]

Немного туманно Вы задание сформулировали, вот такой вариант подойдет?

const
  N = 3;
  M = 4;
var
  mass: array [1..N,1..M] of shortint;
  mass_2: array [1..N,1..M] of single;
  i,j:integer;
  summa, amount:array [1..N] of shortint;
  
function below_zero(const elem:integer):boolean;
begin
  if (elem < 0) then
	below_zero:=true
  else
	below_zero:=false;
end;
  
begin
  randomize;
  writeln('Начальная матрица:');
  for i:=1 to N do
    for  j:=1 to M do
    begin
      mass[i,j]:= random(10)-5;
      if mass[i,j] = 0 then inc(mass[i,j]);
      write('mass[',i,',',j,'] = ', mass[i,j],#9);
      if (j mod M=0) then 
      writeln;
      if below_zero(mass[i,j]) then
	  begin
	  	inc(summa[i],mass[i,j]);
		inc(amount[i]);
	  end;	  	
    end;
  for i:=1 to N do
    case (amount[i] mod 10) of
	1:    writeln(#13#10,'В строке ',i,' --> ', amount[i],' отрицательный элемент --> Сумма: ', summa[i], #13#10);
	else writeln(#13#10,'В строке ',i,' --> ', amount[i],' отрицательных элементов --> Сумма: ', summa[i], #13#10);     
    end;
  writeln('Вторая матрица:');
  for i:=1 to N do
    for  j:=1 to M do
    begin
	   mass_2[i,j]:= summa[i]/mass[i,j];
	   write('mass_2[',i,',',j,'] = ', mass_2[i,j]:2:1,'  ');
       if (j mod M=0) then 
       writeln;
    end;	
end.