PASCAL СРОЧНОООО Дан массив N<100 целых чисел. Вывести все четные элементы массива по...

Question

PASCAL СРОЧНОООО
Дан массив N<100 целых чисел. Вывести все четные элементы массива по возрастанию.<br>

Answer 1

PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a.Where(t->t.IsEven).OrderBy(t->t).Println
end.

Пример
n= 20
15 36 27 -4 47 -20 42 -3 -27 32 15 -38 25 -2 -5 -29 12 2 -2 13
-38 -20 -4 -2 -2 2 12 32 36 42

Answer 2

Program ryazantsev;
var i,k,t,n,min: integer;
a: array[1..100] of integer;
begin
readln(n); //Считываем кол-во элементов массива
for i:=1 to n do a[i]:=Random(100); //Заполнение массива случайными числами
for i:=1 to n do begin
min:=i;
for k:=i to n do if a[k]if i<>min then begin
t:=a[i];
a[i]:=a[min];
a[min]:=t
end
end; //алгоритм пузырьковой сортировки
for i:=1 to n do if a[i] mod 2 = 0 then writeln(a[i])
end.