Процедуры

[Sergeo_89]

1. Коэфициэнты системы линейных уравнений заданы в виде прямоугольной матрицы. С помощью допустимых преобразований привести систему к треугольному виду(оформить в виде процедуры)
2. Найти количество строк, среднее арифметическое элементов которых меньше заданной величины(Оформить в виде функции).


Помогите пожалуйста Решить ЗАдачУ!!!

[Sergeo_89]

Решение найдено! Всем Спасибо!

program capta1n;
const
n = 3;
type
DataItem = array [1..n,1..n+1] of real;
var
i,k,m : byte;
a : DataItem;
x : real;

procedure matr ( var b : DataItem; n1 : byte );
var
j,h,m : byte;
begin

for j:=1 to n1-1 do
for h:=1 to n1-1 do
begin
x:=(-1)*b[h+1,j]/b[1,j];
for m:=j to n1+1 do a[h+1,m]:=a[h+1,m]+x*a[h,m]
end;

end;

begin

writeln ('Vvedite koefficienti: ');
for i:=1 to n do
begin
for k:=1 to n+1 do
begin
write ('a[',i,',',k,']= ');
readln (a[i,k]);
end
end;

matr (a,n);

for i:=1 to n do
begin
for k:=1 to n+1 do write (a[i,k]:0:1,' ');
writeln
end;
readln
end.

Решил capta1n

[capta1n]

вы скопипастили прогу, которую я в тот момент тестил я ж ее изменил немного, там есть несколько ошибок )
работающая процедура выглядит вот так:

procedure matr ( var b : DataItem; n1 : byte );
var
 j,h,m : byte;
begin

  for j:=1 to n1-1 do
   for h:=j to n1-1 do
   begin
     x:=(-1)*b[h+1,j]/b[j,j];
     for m:=j to n1+1 do b[h+1,m]:=b[h+1,m]+x*b[j,m]
   end
end;