Дан массив целых чисел заданных до 100 найти сумму элементов массива больше 50 и кол во...

Question

Дан массив целых чисел заданных до 100 найти сумму элементов массива больше 50 и кол во элементов больше 50 плз, желательно с программой плз ребятки

Answer 1

PascalABC.NET 3.3

begin
 var a:=ArrRandom(20,1,100).Println;
 writeln('s = ',a.Where(x->x>50).Sum);
 writeln('k = ',a.Where(x->x>50).Count);
end. 

Пример:
15 65 62 66 81 77 7 94 95 31 91 41 29 61 10 78 21 24 30 7
s = 770
k = 10

Comments

Правильно ли я думаю, что после var A:=ArrRandom(20,1,100).Println; в A будет храниться последовательность, а A.Println; оставляет A массивом (если это был массив)?