[dasha131]

Че, незнает никто как делать??

[Delirium]

dasha131, а приведенных ссылок недостаточно? Или вы думаете, что все горят желанием расписывать Холецкого на языке программирования? Мы можем поправить существующий код, указать на ошибки и недочеты, но не решать задачу за других. Для этого есть платные услуги в газетах.

[dasha131]

Помогите пожалуйста найти ошибку

program Gauss_Classic;
uses crt;

type vec=array[1..10] of real;
mas=array[1..10] of vec;

var a:mas;b,x:vec;
h:real;
i,j,k,n:integer;

Begin {Начало основной программы}
Clrscr;
read(n);
for i:=1 to n do begin
for j:=1 to n do begin
write('a[',i,',',j,']=');
read(a[i,j]);
end;
write('b[',i,']=');
read(b[i]); end;
Clrscr;
writeln('Исходная матрица');
for i:=1 to n do begin
write(i);
for j:=1 to n do
write(a[i,j]:10:5);
writeln(b[i]:10:5) end;
writeln; writeln; writeln;
Обратный ход - нахождение корней}
for i:=n-1 downto 1 do begin
h:=b[i];
for j:=i+1 to n do h:=h-x[j]*a[i,j];
x[i]:=h/a[i,i]; end;
writeln('Корни уравнения');
for i:=1 to n do writeln('x(',i,')=',x[i]:10:5);
readkey
end.