Дан массив N<100 целых чисел. Вывести все четные элементы массива по возрастанию.
PASCAL
СРОЧНОООО много баллов
PASCAL
СРОЧНОООО много баллов
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
// PascalABC.NET 3.3begin
var n:=ReadInteger('n =');
var a:=ArrRandom(n,10,90); a.Println;
a.Where(x->x mod 2=0).Sorted.Println;
end.
Пример:
n = 20
85 20 19 39 55 89 70 48 16 24 67 77 68 80 45 61 42 25 55 77
16 20 24 42 48 68 70 80
//Версия 3.3, сборка 1634 (14.02.2018)
begin
ArrRandom(ReadInteger('n->'),-100,100).Println.Where(t->t.IsEven).Sorted.Println;
end.
Пример:
n-> 10
57 38 70 -39 33 -71 92 -37 6 -98
-98 6 38 70 92