Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Определить количество неотрицательных элементов https://www.cyberforum.ru/ pascal/ thread87027.html Дан массив.Определить количество неотрицательных элементов	Количество четных чисел находящихся на месте с нечетным индексом. Pascal дан массив.Подсчитать кол -во четных чисел находящихся на местах с нечетным индексом. используя Function
Pascal Определить максимальный элемент массива. Дан массив. Определить: максимальный элемент. https://www.cyberforum.ru/ pascal/ thread87024.html	Pascal Вывести элементы массива на экран в обратном порядке Вывести элементы массива на экран в обратном порядке https://www.cyberforum.ru/ pascal/ thread87022.html
Pascal Определить сумму всех элементов массива определить: а) сумму всех элементов массива; б) произведение всех элементов массива.	Pascal Рекурсивная подпрограма вычисления... Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле: xi=(i+1)xi-2; где x1=1; x2=0.3; i =3,4,… https://www.cyberforum.ru/ pascal/ thread87012.html
Pascal Программа стерлась, нужно срочно восстановить https://www.cyberforum.ru/ pascal/ thread87009.html Сидел весь день писал программу на ноутбуки. Ноут иногда вырубается от перегрева. Собственно, раньше я просто включал его заново и редактировал последний вариант до сохранения(потом вошло впривычку сохраняться очень часто). НО вчера, когда комп вырубился, я включил, но программа просто не открылась! Посмотрел pas файл, все его содержание ушло в null. Осталался только exe с последней компиляции....	Среднее арифметическое двух любых элементов массива. Pascal Дан массив. Сосиавть программу расчёта среднего арифметического двух любых элементов массива.
Pascal Определить, содержатся ли в строке цифры и знаки препинания. Ребята помогите пожалуйста написать программу, буду очень благодарен... Задана строка. Определить, содержаться ли в строке цифры и знаки препинания. https://www.cyberforum.ru/ pascal/ thread87006.html	Pascal Вычислить значение выражения https://www.cyberforum.ru/ pascal/ thread86995.html у=система уравнений из 3 уравнений:2cos^2x +2,если х в диапазоне от -3 до 0. 2уравнение:корень от синуса х в квадрате,если х в диапазоне от 1 до 3. 3уравнение:тангенс х + е в степени х,если х в диапазоне от 3 до 5
решить систему из 4-х уравнений Pascal помогите написать в паскале пожалуйста!!!!	Pascal Постройте логический вектор, каждый элемент которого принимает значение true, если среди элементов i-того строки матрицы А есть хотя бы два равных https://www.cyberforum.ru/ pascal/ thread86989.html Пусть дана матрица А (n x n). Постройте логический вектор, каждый элемент которого принимает значение true, если среди элементов i-того строки матрицы А есть хотя бы два равных, и значение false - иначе. Воспользуйтесь логической функцией, которая для i-й строки выполняет указанную проверку.

Snoopy

1915 / 1065 / 384

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

Сообщений: 2,802

18.01.2010, 13:30

Вывести на экран cначала четные элементы массива, затем нечетные - Pascal - Ответ 486976

18.01.2010, 13:30. Показов 6079. Ответов 3

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

Сообщение было отмечено Эльвир35 как решение

Решение

Pascal

uses crt;
var a:array[1..100] of integer;
    i,j,n,k,x:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
 begin
  a[i]:=random(20);
  Write(a[i],'  ');
 end;
Writeln;
for i:=1 to n do
if a[i] mod 2=0 then
 begin
  k:=k+1;
  x:=a[i];
  for j:=i downto k+1 do
  a[i]:=a[j-1];
  a[k]:=x;
 end;
for i:=1 to n do
 Write(a[i],'  ');
Readln;
end.

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

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

18.01.2010, 13:30

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

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

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

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

Вывести вначале все четные элементы массива, а затем - нечетные
Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем - нечетные

	18.01.2010, 13:30

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

18.01.2010, 13:30

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

Вывести на экран сначала четные элементы массива, потом нечетные
2. Дан массив целых чисел. Вывести на экран сначала четные элементы массива, потом нечетные. S9...

Вывести вначале четные, а затем нечетные элементы массива
Помогите пожалуйста написать код на языке Java: Дан целочисленный массив размера N. Вывести...

Вывести сначала чётные элементы массива, а затем нечётные
Вывести сначала чётные элементы массива, а затем нечётные. Входные данные: Первая строка число...

Отсортировать по возрастанию и вывести на экран сперва чётные элементы вектора, а затем нечётные
Привет. Вообщем, стоит такая задача: "Вывести на экран сначала отсортированные по возрастанию...

Наверх