Потерялась что-то...
Есть внешний файл.
Данные в нем:
-2 5 -1 4
-1 4 -2 5
1 3 -2 6
Как в программе вывести эти данные в виде:
а[1,1]=-2
а[1,2]=5
а[1,3]=-1
b[1]=4
а[2,1]=-1
а[2,2]=4
а[2,3]=-2
b[2]=5
а[3,1]=1
а[3,2]=3
а[3,3]=-2
b[3]=6
а[1,1]=-2
а[1,2]=5
а[1,3]=-1
b[1]=4
а[2,1]=-1
а[2,2]=4
а[2,3]=-2
b[2]=5
а[3,1]=1
а[3,2]=3
а[3,3]=-2
b[3]=6
Program primer;
Var
i,j: byte;
f: text;
a: array [1..3,1..3] of integer;
b: array [1..3] of integer;
Begin
Assign(f,'primer.dat');
Reset(f);
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
Read(f,a[i,j]);
Writeln('a[',i,',',j,']=',a[i,j]);
end;
Readln(f,b[i]);
Writeln('b[',i,']=',b[i]);
end;
Close(f);
End.