В каждой строке матрицы найти количество отрицательных элементов и записать в массив

@Romatwice · Регистрация: 19.11.2012

Студворк — интернет-сервис помощи студентам

Добрый день, помогите написать 2 программы, одну из них я написал, она работает полностью, за исключением вывода, в ней нужно чтобы ответы выводило всегда в текстовый файл, то есть и массив и сумму нечетных:

УСЛОВИЕ: Дана матрица размерностью mxn, требуется написать программу, которая в каждой строке матрицы находится количество отрицательных элементов и результаты записывает в линейный массив, если общее количество отрицательных элементов матрицы больше 5, то найдите сумму всех элементов матрицы.

Pascal

Program Pomashka;
type mas=array[1..20,1..20] of integer;
     mass=array[1..20] of integer;
Procedure vvod(var f:text; var a:mas; var n,m:integer);
var i,j:integer;
begin
assign(f,'vvod.txt');
reset(f);
read(f,n,m);
For i:=1 to n do
 begin
  for j:=1 to m do
   read(f,a[i,j]);
 readln(f);
 end;
close(f);
end;
 
Procedure vivod(var e:text; b:mass; n:integer);
var i:integer;
begin
assign(e,'vivod.txt');
rewrite(e);
For i:=1 to n do
 write(e,b[i],' ');
 
close(e);
end;
 
Function otp(a:mas; m,i:integer):integer;
var
k,j:integer;
begin k:=0;
For j:=1 to m do
 If a[i,j]<0 Then k:=k+1;
otp:=k;
end;
 
Function summ(a:mas; n,m:integer):integer;
var S,i,j:integer;
begin S:=0;
For i:=1 to n do
 for j:=1 to m do
  S:=S+a[i,j];
summ:=S;
end;
 
var a:mas; b:mass; f,e:text;
i,j,n,m,ok:integer;
BEGIN
vvod(f,a,n,m);
ok:=0;
For i:=1 to n do begin
 b[i]:=otp(a,m,i);
 ok:=ok+otp(a,m,i);
 end;
IF ok>5 Then writeln(summ(a,n,m));
vivod(e,b,n);
readln;
End.

Добавлено через 5 часов 17 минут
апапап

Добавлено через 11 секунд
апапап

Опции темы