Developing.ru

program V44_N8;
uses crt;
var
A:array[1..5,1..5]of integer;
sum,i,j,k:integer;
begin
clrscr;
randomize;
writeln('Исходный массив: ');
for i:=1 to 5 do begin
for j:=1 to 5 do begin
A[i,j]:=random($FF);
write(A[i,j]:4);
end;
writeln;
end;
writeln;
for k:=1 to 5 do begin
if A[1,k]<0 then begin
for i:=1 to 5 do begin
sum:=0;
for j:=1 to 5 do begin
if j<i then sum:=sum+A[i,j];
end;
A[i,i]:=A[i,i]-sum;
end;
end;
end;
writeln('Результ. матрица: ');
for i:=1 to 5 do begin
writeln;
for j:=1 to 5 do
write(A[i,j]:4);
end;
end.

И в чем состоит задача?

Наверно задача состоит в том, что бы связать файловую переменную с внешним файлом, который хранится на жёстком диске.. И записать конечную матрицу в текстовый файл. Я так понимаю?

пронпиши путь к файлу раз 1
создай этот файл 2
и прокодь))..но эт я не знаю как сделать)))..

Если keywanda правильно определяет суть задачи, то это примерно так