Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Вывести на экран таблицу квадратов пяти целых нечетных чисел Вывести на экран таблицу квадратов пяти целых нечетных чисел. Результат должен быть следующим: Число: Квадрат: 1 1 3 9 5 25 7 ... https://www.cyberforum.ru/ turbo-pascal/ thread869202.html	Turbo Pascal Определить время через который встретятся два тела движущихся навстречу друг другу равноускоренно Определить время через который встретятся два тела движущихся навстречу друг другу равноускоренно если известны их начальные скорости ускорения и начальное расстояние между ними
Turbo Pascal Программа инициализации массива и поиска максимального https://www.cyberforum.ru/ turbo-pascal/ thread869175.html Нужна программа инициализации массива целых чисел размерностью 10 и поиск максимального элемента в нем.	Turbo Pascal даны два числовые интервалы 7, 9 и 14, 16. Составить логическое выражение описывающий условие того что некоторое число х принадлежит одному из них. даны два числовые интервалы 7, 9 и 14, 16. Составить логическое выражение описывающий условие того что некоторое число х принадлежит одному из них. https://www.cyberforum.ru/ turbo-pascal/ thread869166.html
Turbo Pascal Вычислить сумму ряда 1.Использование цикла с предусловием 2.Использование цикла с постусловие	Turbo Pascal Есть число n и действительные числа а1, а2, …an, найти максимум https://www.cyberforum.ru/ turbo-pascal/ thread869085.html дано число n и действительные числа а1, а2, …аn. Определить
Turbo Pascal Пусть нижняя и верхняя границы одномерного массива A соответственно уровне -15 и 28. Определить значение индексов элементов, порядковыми номерами кото https://www.cyberforum.ru/ turbo-pascal/ thread869079.html Пусть нижняя и верхняя границы одномерного массива A соответственно уровне -15 и 28. Определить значение индексов элементов, порядковыми номерами которых являются: 2, 11, 31, 18, 8, 24, 10, 0,...	Turbo Pascal Написать программу, вывода на экран списка профессий и организаций, которым требуются данные специалисты Написать программу, вывода на экран списка профессий и организаций, которым требуются данные специалисты, оклад в тыс.руб. Ниже представлен рекомендуемый вид экрана во время работы программы (данные,...
Turbo Pascal Таблица стоимости телефонных переговоров Написать программу, которая выводит на экран таблицу стоимости телефонных переговоров от 1 мин до 10 мин с шагом в одну мин. Изначальную стоимость минуты выбрать самостоятельно (используя цикл с... https://www.cyberforum.ru/ turbo-pascal/ thread869048.html	Turbo Pascal Организовать циклический динамический список. Заполнить его подряд идущими натуральными числами. Написать алгоритм, который добавляет элемент со значе https://www.cyberforum.ru/ turbo-pascal/ thread869047.html Мучаюсь с этой задачей уже долгое время. Помогите решить.
Turbo Pascal Разработать программу, которая: а) создает текстовый файл TF5_1 с символьных строк разной длины б) читает содержимое файла TF5_1, находит все последовательности цифр, которые соответствуют синтаксису целого числа, и записывает их,...	Turbo Pascal Используя рекурсию и рекуррентную формулу для вычисления определителя матрицы написать алгоритм вычисления определителя матрицы Помогите, пожалуйста. https://www.cyberforum.ru/ turbo-pascal/ thread869044.html

Shizuka

43 / 43 / 25

Регистрация: 26.04.2013

Сообщений: 77

18.05.2013, 15:24

Получить новый, в котором сначала расположены все четные, а затем нечетные элементы массива - Turbo Pascal - Ответ 4575585

18.05.2013, 15:24. Показов 1535. Ответов 2

Метки (Все метки)

Сообщение было отмечено Danil93_27 как решение

Решение

Pascal

var
   a,b:array[1..100] of integer;
   i,n,k: integer;
begin
     writeln('vvedit n: ');
     readln(n);
     writeln('vvedit massuv');
     for i:=1 to n do
         read(a[i]);
     k:=1;
     for i:=1 to n do
         if (a[i] mod 2=0) then
         begin
              b[k]:= a[i];
              k:=k+1;
         end;
     for i:=1 to n do
         if (a[i] mod 2<>0) then
         begin
              b[k]:= a[i];
              k:=k+1;
         end;
     writeln(' novuy massuv ');
     for i:=1 to k-1 do
         write(b[i],' ');
end.

Вернуться к обсуждению:
Получить новый, в котором сначала расположены все четные, а затем нечетные элементы массива Turbo Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

18.05.2013, 15:24

Готовые ответы и решения:

Вывести на экран сначала четные элементы массива, затем нечетные
5. Дан массив целых чисел. Вывести на экран сначала его четные элемен¬ты, затем нечетные.

Вывести на экран сначала четные элементы массива, затем нечетные
Дан массив целых чисел. Вывести на экран сначала его четные элемен¬ты, затем нечетные.

Сформировать новый массив, вначале которого все стояли четные значения элементов, затем нечетные
задача3-Сформировать одномерный целочисленный массив из 80 элементов. Сформировать новый массив,...

Получить из массива новый в котором сначала идут положительные числа, затем нули и потом отрицательные
Дан массив Х(N). Получить новый массив Y(N), такой, что в нем сначала идут положительные числа,...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

18.05.2013, 15:24

Помогаю со студенческими работами здесь

В третий файл записать сначала четные элементы первого файла, а затем — нечетные
Помогите с этой задачкой,заранее спасибо. Вообщем надо создать 2 типизированных файла из целых...

Переписать в новый массив сначала нечетные, потом четные элементы.
помогите пожалуйста!! из массива JJ(100) в массив NN(100) перенести числа(элементы массива)...

Из одного массива в другой массив перенести числа: сначала нечетные, а затем четные
Из массива JJ(100) в массив NN(100) перенести числа(элементы массива): сначала нечетные, а затем...

Вывести сначала четные потом нечетные элементы массива
Задача на одномерный массив: Дан массив размера N. Вывести его сначала элементы четные потом...

Наверх