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

@Slove73 · Регистрация: 28.04.2012

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

@КонецСвета · 19.06.2012, 03:17

Pascal

uses crt;
const n=20;
var a: array [1..n] of integer;
    i: byte;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
    begin
    a[i]:=random(199)-99;
    write(a[i],' ');
    end;
writeln;
writeln('"Сортированный" массив');
for i:=1 to n do
    if a[i] mod 2=0 then write(a[i],' ');
for i:=1 to n do
    if odd(a[i]) then write(a[i],' ');
readln;
end.

@Slove73 0 / 0 / 0 Регистрация: 28.04.2012 Сообщений: 23
		1
	Вывести на экран сначала четные элементы массива, затем нечетные 18.06.2012, 23:16. Показов 3023. Ответов 1 Метки нет (Все метки) 5. Дан массив целых чисел. Вывести на экран сначала его четные элемен¬ты, затем нечетные. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение