Вывести сначала четные потом нечетные элементы массива

@iDem · Регистрация: 21.10.2012

Author24 — интернет-сервис помощи студентам

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

@Pahanuch · 16.11.2012, 15:05

Pascal

Uses crt;
const N=10;
var
i,ch:integer;
A:array [1..n] of integer;
Begin
For i:=1 to N do BEGIN
A[i]:=Random(9)+1;
Write(A[i],' ');
END;
WRITELN;
Write('Четные: ');
For i:=1 to N do BEGIN
if (A[i] mod 2 = 0) then Write(A[i],' ');
END;
Write('Нечетные: ');
For i:=1 to N do BEGIN
if (A[i] mod 2 = 1) then Write(A[i],' ');
END;
WRITELN;
End.

@masterpiece · 16.11.2012, 15:06

Вывести на экран сначала четные элементы массива, затем нечетные

@iDem 0 / 0 / 0 Регистрация: 21.10.2012 Сообщений: 3
		1
	Вывести сначала четные потом нечетные элементы массива 16.11.2012, 14:35. Показов 17950. Ответов 2 Метки нет (Все метки) Задача на одномерный массив: Дан массив размера N. Вывести его сначала элементы четные потом нечетные. 0

@masterpiece 142 / 111 / 61 Регистрация: 01.08.2012 Сообщений: 297
	16.11.2012, 15:06	3
	Вывести на экран сначала четные элементы массива, затем нечетные 0

Вывести сначала четные потом нечетные элементы массива

Решение