Файлы. Записать числа в файл, считать, найти максимальное

Mazarini

Записать тысяча чисел в файл Num.txt, открыть в блокноте и проверить. Составить программу для считывания данных из этого файла и найти макс.элемент.
1 ответ

Mazarini

uses crt;
var f: text;
    n,i,max: integer;
begin
writeln('Осуществляется запись 1000 чисел в файл');
assign(f,'C:\Num.txt');
rewrite(f);
for i:=1 to 1000 do
    begin
    n:=random(1999)-999;
    write(f,' ',n);
    end;
writeln('Числа занесены в файл. Содержание файла:');
i:=0;
reset(f);
while not (eof(f)) do
      begin
      inc(i);
      read(f,n);
      if i=1 then max:=n else
         if n>max then max:=n;
      write(n:5);
      if i mod 15=0 then writeln;
      end;
writeln('       Макс. значение ',max);
close(f);
readkey;
end.