Дан массив N

August 2021 2 10 Report

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

Verified answer

// PascalABC.NET 3.3

begin
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 votes Thanks 2

den4i9 спасибо

petyaGavrikov Пожалуйста.

Giammy //PascalABC.NET
//Версия 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

2 votes Thanks 1

Answers & Comments

Verified answer

vstavit znaniya v tablicu vnizu listochka

napishite programmu kotoraya v posledovatelnosti naturalnyh chisel opredelyaet ma9616afb502859d12803e211c4cb7231b 47507

rebyat oochen nado budu ochen blagodaren

napishite sravnitelnuyu harakteristiku chackogo i molchalina 1 vozrast 2otnoshenie

sochinenie pro kino devochka i eho

sochinenie pro led i hokkej srochno pozhajlusta

zachem nuzhno ohranyat biosferu srochno pomogite

ploshad kvadrata ravna 36dm2 chemu raven ego perimetr

fiskander trinadcatyj podvig gerakla 1 harakteristika glavnogo geroya2 otno

kak raskryvaetsya dramaturgiya v kupecheskoj srede proizvedenie ostrovskogo bedn

рекомендуемые вопросы

Helpful Links

Helpful Social