Работа с файлами, Pascal, нужна помощь

[Only]

Работа с файлами, Pascal, нужна помощь

Напишите пожалуйста программу по заданию:

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

Очень нужно, спасибо)

 

[Gruvi]

из файла, считываем числа, определяем элементы с нечетными номерами, далее ищем максимум среди найденных элементов.

uses crt;

var
f:text;
a:array [1..50] of integer;
i,k,max:integer;

begin
clrscr;
writeln('Элементы с нечетными номерами: ');
assign(f,'c:\ch.txt');
reset(f);
while not eof(f) do
begin
read(f,a[k]);
inc(i);
if odd(i) then
write(a[k],' ');
if (a[k]>max) and (odd(i)) then max:=a[k]; end;
writeln;
writeln;
writeln('Максимальный элемент: ');
writeln(max);
readkey;
end

 

[Only]

Нет, это не подойдёт, нужно чтобы было без текстового документа.

 

[Gruvi]

У вас же написано что:

Дан файл f

Да и к тому же, программа работает, а изменить в ней ввод чисел -это элементарщина.

 

[Only]

нет, вы возможно не поняли меня, но не суть, уже сделал как нужно, спасибо.