const
FileName: String = '187481.dat';
{Имя файла, из которого будут считываться числа}
var
f: file of Real;
i: Word;
w, w_min, w_max: Real;
begin
Assign(f, FileName);
i := 0;
Read(f,w_max);
w_min := w_max;
while (not Eof(f)) do begin
i:=i+1;
Read(f,w);
if w > w_max then w_max := w;
if (((i mod 2) = 0) and (w < w_min)) then w_min := w;
end;
WriteLn('w_min= ', w_min,', w_max= ', w_max);
Close(f);
Readln;
end.
{Текст файла M187481.PAS}
uses CRT;
{Программа для генерации файла случайных чисел}
CONST
FileName: String = '187481.dat';
count:Word = 100; {Максимальное число элементов в файле}
VAR
f: File of Real;
i:word;
w: Real;
BEGIN
WriteLn('Введите число чисел, которое будет записано в файл ',FileName);
WriteLn('Вводите неотрицательное число не больше 65535');
ReadLn(count);
Assign(f, FileName);
Rewrite(f);
Randomize;
i := 0;
while i < count do
begin
w :=100*Random;
if odd(random(100)) then w:=-w;
write(f,w);
i := i+1;
end;
Close(f)
END.
{Текст файла P187481.PAS}
CONST
FileName: String = '187481.dat';
{Имя файла, из которого будут считываться числа}
VAR
f: file of Real;
i: Word;
w, w_min, w_max: Real;
BEGIN
Assign(f, FileName);
{$I-} Reset(f); {$I+}
if IOResult <> 0 then begin
Writeln('Файл ', FileName, 'не найден');
Writeln('Сначала запустите программу m187481.exe для создания файла чисел'
Halt(1)
end;
i := 0;
Read(f,w_min);
w_max := w_min;
while (NOT EOF(f)) and (i <= 65535) do
begin
Read(f,w);
inc(i);
if w > w_max then w_max := w;
if NOT odd(i) then
if w < w_min then w_min := w;
end;
WriteLn;
WriteLn('w_min= ', w_min,', w_max= ', w_max);
Close(f)
END.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.