Кублен
Оракул
(96990)
4 года назад
переделай эту прогу
program prog;
uses crt;
var
i,j,a,sum:integer;
f:File of Integer;
begin
assign(f,'in.txt');
rewrite(f);
for i:=1 to 3 do begin
for j:=1 to 3 do
write(f,i+j*10);
end;
close(f);
reset(f);
sum:=0;
writeln('Содержимое файла ');
for i:=1 to 3 do begin
for j:=1 to 3 do
begin
read(f,a); write(a:4);
if (i=j)and(a>0) then sum:=sum+a;
end; writeln; end;
Close(f);
assign(f,'out.txt');
rewrite(f);
write(f,sum);
close(f);
writeln;
writeln('Данные успешно записаны в файл! Ответ: ', sum);
reset(f);
read(f,a); // write(a:4);
writeln;
writeln('Данные успешно прочитаны из файла! Ответ: ', a);
Close(f);
readkey;
end.