Форум программистов, компьютерный форум, киберфорум
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
43 / 43 / 25
Регистрация: 26.04.2013
Сообщений: 77
18.05.2013, 15:24 0

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

18.05.2013, 15:24. Показов 1535. Ответов 2
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2013, 15:24
Готовые ответы и решения:

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

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

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

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

2
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. Вывести его сначала элементы четные потом...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru