Максимальное число файла на Pascal

      Комментарии к записи Максимальное число файла на Pascal отключены

Главная Форумы Программирование Программирование на Pascal Максимальное число файла на Pascal

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 7 мес. назад.

  • Автор
    Сообщения
  • #3767

    Записать в файл n действительных чисел. Найти среди них максимальное.

    program file_12;
    uses crt;
    var
      i, n: integer;
      x, max: real;
      f: file of real;
    begin
      clrscr;
      assign(f, 'file');
      write('Количество чисел > '); read(n);
      rewrite(f);
      for i:=1 to n do
      begin
        write(i, ' число > '); read(x); write(f, x);
        if i=1 then max:=x;
      end;
      reset(f);
      i:=1;
      while not eof(f) do
      begin
        read(f, x);
        if (i mod 2<>0) then
        begin if x>max then max:=x; end;
        i:=i+1;
      end;
      write('Максимальное среди нечетных: ', max:6:3);
      close(f);
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.