Файл, исправить программу

[ilyas22]

Дан файл, элементами которого являются действительные числа, найти наибольший элемент
проблема же, не видит последний элемент, почему?

program _;
const
 k=4;
 var
 f:file of integer;
 a:array[1..k] of integer; i,max:integer;
begin
assign(f,'f.text');
rewrite(f);
for i:=1 to k do
begin
  write(f,a[i]);
  read(a[i]);
end;
close(f);
writeln('введите текст');
reset(f);
while not eof(f) do
begin
read(f,a[i]);
end;
max:=a[1];
for i:=2 to k do
  begin
     if max<a[i] then
       max:=a[i];
  end;
writeln('Наибольший элемент=',max);
close(f);
end.

[ROMA2PVT]

program _;
const
 k=4;
 var
 f:file of integer;
 a:array[1..k] of integer; i,max:integer;
begin
assign(f,'C:\f.text');
rewrite(f);
for i:=1 to k do
begin
  read(a[i]);
   write(f,a[i]);
end;
close(f);
writeln('введите текст');
reset(f);
while not eof(f) do
begin
read(f,a[i]);
end;
max:=a[1];
for i:=2 to k do
  begin
     if max<a[i] then
       max:=a[i];
  end;
writeln('Наибольший элемент=',max);
close(f);
end.

[ilyas22]

Если вводить последовательность 1 2 3 4
Наибольший элемент равен 3, что не правильно(вместо "введите текст" должно быть "файл создан")

то есть когда последний элемент массива наибольшее число, программа его не видит почему?

[ROMA2PVT]

Если вводить последовательность 1 2 3 4
Наибольший элемент равен 3, что не правильно(вместо "введите текст" должно быть "файл создан"

Проверил всё нормально работает.

[Snejnaya]

for i:=1 to k do
begin
  write(f,a[i]);
  read(a[i]);
end;

поменяй местами строки write(f,a[i]) и read(a[i])/
Твоя программа не работает, потому что при последнем прохождении цикла в файл записывается предпоследнее a.

[ROMA2PVT]

поменяй местами строки write(f,a[i]) и read(a[i])/

ну как бы выше то я написал ему.

[Snejnaya]

ROMA2PVT

Он тебе не поверил)))

[ROMA2PVT]

<<offtop>>

Он тебе не поверил)))

Думаю он даже незаметил выделенный красным цветом текст.