Работа с фаилами паскаль

[Igomax]

Дан фаил f компонентами которого являются действительные числа: определить наибольшее значение компонент и сумму наибольшего и наименьшего из значений компонент

Подскажите плиз как решать!!!

[Arigato]

Подскажите плиз как решать!!!

Прочтите книгу по Паскалю. Раздел работы с файлами.

[Sazary]

Создаете типизированный файл. Заполняете его действительными числами. Закрываете.
Открываете для чтения.
Пусть есть две переменные (вещественные) - min и max.
Читаете файл поэлементно. Если текущий элемент >max, то max = текущий элемент. Аналогично с min (только знак <).
После этого складываете min и max.

[Igomax]

как написать чтобы паскаль читал фаил поэлементно

[Sazary]

как написать чтобы паскаль читал фаил поэлементно

Просто читайте в цикле по одному элементу.
Как и сказал Arigato, почитайте какую-нибудь книгу по паскалю. И подобные вопросы возникать не будут.

[Igomax]

program dd;
var f: file of real;
s,a,min,max:real;
begin
Assign (f,'D:\text.txt');
{$I-}
Reset(f);
if Ioresult<>0 then rewrite(f);
read (f,a);
min:=a;
max:=a;
s:=0;
while not(eof(f)) do begin
read(f,a);
if a<min then min:=a;
if a>max then max:=a;
end;
S:=min+max;
write(S:7:3); write(max:7:3);
close(f);
end.

Подскажите плиз что неправильно

[Arigato]

А что именно не так?

[Sazary]

Igomax, все правильно.
Только не забудьте, что файл должен быть заполнен числами.
А вы, если он не существует, просто создаете его (пустым).

[Igomax]

Фаил уже создан но всё равно выводятся нули

[Sazary]

Фаил уже создан но всё равно выводятся нули

Тогда как вы заполняете файл? Надеюсь, не в блокноте?
Файл нужно заполнять также, как и считываете. То есть создайте еще одну программу, которая будет его заполнять.