Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 08.04.2013, 21:35   #1 (permalink)
NAt
Member
 
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите решить задачу в Паскале

Создать типизированный файл, куда записать n целых чисел. Из файла создать массив, элементы которого являются четными числами и расположены после максимального элемента.
NAt вне форума   Ответить с цитированием

Старый 08.04.2013, 21:35
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Возможно, что решение вашего вопроса обсуждалось в похожих темах

Помогите решить задачу в Паскале
Помогите решить задачу в Паскале
Помогите решить задачу в паскале
Помогите решить задачу в Паскале
Помогите решить задачу в Паскале
Помогите решить задачу на паскале ABC

Старый 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 вне форума   Ответить с цитированием
Старый 09.04.2013, 16:22   #3 (permalink)
NAt
Member
 
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо большое, очень помогли
NAt вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:47.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.