Записать в файл n действительных чисел. Найти среди них максимальное.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | 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. |
