Прога, по выводу элементов из файла стоящих за минимальным

[Ассоль_]

Дан файл целых чисел, вывести все элементы стоящие за минимальным.
Минимальный нашла все нориально, незнаю как вывксти элементы стоящте ЗА ним. Помогите

[TinMan]

Вообще-то было бы неплохо увидеть, как ты "Минимальный нашла все нориально", но ладно уж.. Нужно просто запомнить позицию минимального числа в файле (кстати, не совсем ясная ситуация, если их несколько), а потом найти это место и вывести. Вот примерный код (не проверял, писал тут).

var
  f: file of integer;
  p: LongInt;
  a: integer;

begin
  Assign(f,'data.bin');
  Reset(f);
  read(f,min);
  p:= 1;
  while not EoF(f) do begin
    read(f,a);
    if a<min then begin
      min:= a;
      p:= FilePos(f)
    end
  end;
  Seek(f,p);
  while not EoF(f) do begin
    read(f,a);
    write(a:8)
  end;
  readln
end.

успехов тебе в твоем ожидании алых парусов