Проблема с этим исходником в том, что в сохраняемом файле Otvet.txt значения индексов из A[m] равны значениям индексов из A[n].
Program Faels;
Uses dos,crt;
var
a:array[1..100]of integer;
f,l:text;
i,j:integer;
begin
clrscr;
Assign(f,'d:\PASCAL\laba52.txt');
Reset(f);
Writeln('A[m]:');
for i:=1 to 8 do
begin
Read(f,a[i]);
Write(' ',a[i]);
end;
Writeln;
Writeln('A[n]:');
for j:=1 to 8 do
begin
Read(f,a[j]);
Write(' ',a[j]);
end;
Assign(l,'d:\PASCAL\Otvet.txt');
Rewrite(l);
for i:=1 to 8 do
if a[i]=0 then
Writeln(l,'A[m]:',i);
for j:=1 to 8 do
if a[j]=0 then
Writeln(l,'A[n]:',j);
Close(l);
Readln;
end.
Сообщение отредактировано: BoB@N -