УСЛОВИЕ:
Матрица, размером n*m, вводиться из текстового файла. Если сумма элементов каждого столбца матрицы меньше 10, то найти сумму всех элементов матрицы, меньше 5, в противно случаи найти количество отрицательный элементов матрицы.Исходную матрицу и результат вывести в текстовый файл.
Спасибо большое заранее тем кто поможет)))
program lab7;
type
mas1=array[1..10] of integer;
mas2=array[1..10,1..10] of integer;
mas3=array[1..10] of integer;
var
a:mas2;
B:MAS1;
c:mas3;
n,m:integer;
Procedure vvod(var a:mas2; var n,m:integer);
var i,j:integer;
f:text;
begin
assign(f,'matrica.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(a:mas2; n:integer);
var i,j:integer;
f:text;
begin
assign(f,'otvet.txt');
rewrite(f);
begin
for i:=1 to n do
begin
for j:=1 to m do
write(f,' ',a[i,j]);
writeln;
end;
close(f);
end;
end;
begin
vvod(a,n,m);
vivod(a,n);
end.
