Показать сообщение отдельно
Старый 09.04.2013, 01:51   #2 (permalink)
interacia
Member
 
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
По умолчанию

Код:
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
interacia вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070