08.04.2013, 21:35 | #1 (permalink) |
Member
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачу в Паскале
|
08.04.2013, 21:35 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно, что решение вашего вопроса обсуждалось в похожих темах Помогите решить задачу в Паскале Помогите решить задачу в Паскале Помогите решить задачу в паскале Помогите решить задачу в Паскале Помогите решить задачу в Паскале Помогите решить задачу на паскале ABC |
09.04.2013, 01:51 | #2 (permalink) |
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 |
09.04.2013, 16:22 | #3 (permalink) |
Member
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо большое, очень помогли
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|