Код:
program VvodInteger;
var
NameFile: String;
N: integer;
i:integer;
num, Max:integer;
F: file of integer;
temp:integer;
begin
// Ввод данных
Writeln('Введите имя файла');
Readln(NameFile);
Writeln('Введите размер файла');
Readln(N);
Writeln('Введите значения элементов файла');
Assign(f,NameFile);
Rewrite(f);
for i:=1 to n do
begin
readln(temp);
Write(F,temp);
end;
Close(f);
Reset(f);
i:=1;
while not Eof(f) do
begin
read(f,temp);
if i=1 then max:=temp
else if temp>max then begin max:=temp;num:=i ; end;
inc(i);
end;
Seek(f,num);
Writeln('ответ: ');
while not Eof(f) do
begin
read(f,temp);
if not odd(temp)then Write(temp,' ');
end;
close(f);
end.
Пример работы
__________________________________________________ ________
Введите имя файла
a.num
Введите размер файла
10
Введите значения элементов файла
0
0
10
9
8
7
6
5
4
3
ответ:
8 6 4