Типизированный файл. Найти наименьшее из значений компонент с четными номерами - Turbo Pascal

Формулировка задачи:

Составьте программу, которая создает файл, состоящий из компонент типа integer. Прочитайте файл и найдите наименьшее из значений компонент с четными номерами.

Код к задаче: «Типизированный файл. Найти наименьшее из значений компонент с четными номерами - Turbo Pascal»

textual
uses crt;
var n,i,nmin: integer;
    f: file of integer;
begin
assign(f,'C:\in.txt');
rewrite(f);
for i:=1 to 10+random(11) do
    begin
    n:=random(199)-99;
    write(f,n);
    end;
i:=0;
reset(f);
writeln('Компоненты исходного файла');
while not (eof(f)) do
      begin
      inc(i);
      read(f,n);
      write(n:5);
      if i mod 2=0 then
         begin
         if i=2 then nmin:=n else
         if n<nmin then nmin:=n;
         end;
      end;
close(f);
writeln('');
writeln('Наименьшая из компонент с четными номерами ',nmin);
readln;
end.

5   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ