Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var n:=ReadInteger(Количество элементов в массиве: );
  var a:=ArrRandom(n,-50,50);
  a.Println(,);
  Writeln(Четные элементы: );
  var i:=1;
  while i  Writeln;
  Writeln(Нечетные элементы: );
  i:=0;
  while i  Writeln
end.

Тестовое решение:
Количество элементов в массиве:  10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9