организовать ввод данных их фаила (f1.txt), решить СЛУ с верхней треугольной матрицей.
uses crt;
var s,x,k,l,i,j,n:integer;
q:array[1..6,1..5] of integer;
xn:array[1..5] of integer;
f1:text;
begin
clrscr;
assign (f1,'f1.txt');
reset (f1);
for i:=1 to 6 do begin
for j:=1 to 5 do begin
read (f1,q[i,j]);
write (q[i,j]:6);
end;
readln(f1);
end;
for k:=n downto 1 do begin
s:=0;
for l:=k+1 to n do begin
s:=s+q[i,j]*xn[l];
end;
writeln(xn[k]);
readln;
end;
readln;
end.
примерно так, но вот не получается вывести строку переменных X... и ваще хз считает ли он их, т.к. выводит он строку нулей (приэтом последний X точно не равен 0).
фаил ф1- константы в блокноте (6x5)