Сложная задачка

[_°PROTOS°_]

Всем привет, нуждаюсь в вашей помощи.

Условие:

Дан файл f, элементы которого являются действительными
числами. Найти наибольшее из значений элементов.

Заранее очень благодарен...

[Sazary]

И что сложного? В чем, собственно, проблема?
Что непонятно и что не получается?

Читаете файл поэлементно и сравниваете с максимумом.

[_°PROTOS°_]

Ну каждому своё
А мне сложновато

[Sazary]

_°PROTOS°_, так пробуйте. Откуда взяться сложностям, если вы даже не начали?

Что вам конкретно непонятно?

[Lawless]

program maxmas;
const t = 10;
var
f: text;
d,max: integer;
n: array [1..t] of integer;
Begin
Assign(f, '....');
reset(f);
repeat
inc(d);
read(f,n[d]);
until EoF(f);
for d:= 1 to t do
if n[d] > max then max:= n[d];
writeln(max);
end.

[Serge_Bliznykov]

Lawless, в целом всё правильно.
Только несколько замечаний.
1) файл (по условию задачи) должен быть
var f : file of real;
2) совсем не зачем считывать весь файл в массив!
При чтении очередного элемента надо сразу сравнивать его с максимальным. Это будет и быстрее и сразу снимает ограничение на размер файла (ну, как в вашем примере - 10 чисел).
3) переменную Max перед циклом ОБЯЗАТЕЛЬНО нужно иницилизировать (для этого можно взять заведомо маленькое число, ну, например, Max := -1e38;
4) для чтения из файла лучше использовать конструкцию:

  while Not Eof(f) do
  begin
     Read(f, ...)
  end;

т.к. repeat until выполнится хотя бы раз... для пустого файла Вы получите runtime ошибку...