Задача на работу с файлами. Pascal

Дан файл целых чисел. Элементы могут принимать значения от 0 до 100 — баллы, полученные на ЕГЭ. Опишите алгоритм, который подсчитывает и выводит на экран наибольший балл среди учащихся, сдавших экзамен (получивших оценку более 25 баллов) либо вывести сообщение, что таких нет.

Решение:

program RabSFiles;

var
  f:Text;
  i,max:integer;

begin
   Assign(F, 'list.txt');
   Reset(f);
   max:=0;
   While not( eof(f)) do
   begin
    ReadLn(f,i);
    if i>25 then
      if max<i then max:=i;
   end;
   Close(f);
   if max>0 then writeln(max)
   Else Writeln('Таких нет');
end.

program RabSFiles;

var

f:Text;

i,max:integer;

begin

Assign(F, 'list.txt');

Reset(f);

max:=0;

While not( eof(f)) do

begin

ReadLn(f,i);

if i>25 then

if max<i then max:=i;

end;

Close(f);

if max>0 then writeln(max)

Else Writeln('Таких нет');

end.

Задача на работу с файлами. Pascal

Комментарии:

Добавить комментарий Отменить ответ