Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2013, 22:48   #1
amki6
Пользователь
 
Регистрация: 02.03.2010
Сообщений: 38
По умолчанию Четные и нечетных элементы заданного ряда чисел

Программа, которая, получая входную последовательность целых чисел оканчивающихся нулем. Как сделать что бы она выводила сначала элементы с четными номерами исходной последовательности, затем элементы с нечетными номерами
Код:
program list2;
type
    pelem=^elem;
    Elem=record;
    perv:Pelem;
    next:Pelem;
    i:integer;
    end;
var
beg,tek,fin:Pelem;
   begin
   new(beg);
   tek:=beg;
   read(tek^.i);
   while(tek^.i<>0) do
        begin
            new(tek^.next);
            tek^.next^.perv:=tek;
            tek:=tek^.next;
            read(tek^.i)
        end;


        end.

Последний раз редактировалось Stilet; 21.05.2013 в 23:16.
amki6 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Из заданного целого ряда чисел размерности N получить новый ряд, состоящий из отрицательных членов ряда, кратных 5 ( Паскаль ) ВикторИО Паскаль, Turbo Pascal, PascalABC.NET 9 17.03.2013 18:00
Дан массив x целых чисел. Упорядочить элементы, стоящие на четных местах по невозрастанию, а на нечетных – по неубыванию. NuclearMurder Помощь студентам 0 11.11.2012 17:43
Составить программу вычисление суммы нечетных чисел натурального ряда Александр16 Помощь студентам 0 12.12.2010 18:22
В матрице nxm (n, m ≥ 10) целых чисел элементы нечетных строк упорядочить по возрастанию, а элементы четн serafimGroup Помощь студентам 1 01.12.2010 16:45