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

@Эльвир35 · Регистрация: 18.01.2010

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

@кот Бегемот · 26.01.2010, 09:56

Pascal

for i:=1 to n do
if a[i] mod 2=0 then write (a[i],' ');
for i:=1 to n do
if a[i] mod 2<>0 then write (a[i],' ');

@Darkcat112 · 05.03.2020, 20:50

Pascal

program chotnoe_ic_massiva;
 
var
  a: array of integer;
  n, i: integer;
 
begin
  read(n);
  setlength(a, n);
  for i := 0 to n - 1 do read(a[i]);
  write('Четные:');
  for i := 0 to n - 1 do 
    if not Odd(a[i])
      then write(a[i], ' ');
  writeln;
  write('Нечетные:');
  for i := 0 to n - 1 do 
    if Odd(a[i])
      then write(a[i], ' ');
end.

@Эльвир35 0 / 0 / 0 Регистрация: 18.01.2010 Сообщений: 25
		1
	Вывести на экран сначала четные элементы массива потом нечетные 26.01.2010, 09:43. Показов 5743. Ответов 2 Метки нет (Все метки) Дан массив целых чисел. Вывести на экран сначало четные элементы массива потом не четные 0

Опции темы

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

Решение