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

Answer 2

Нет, неправильно.

Answer 3

Во-первых, последовательности вообще не хранятся, они относятся к так называемым "ленивым вычислениям". Т.е. хранится только формула, а каждый член последовательности вычисляется тогда, когда он нужен.

Answer 4

Посему последовательность длиной хоть в миллиард элементов занимает ровно столько, сколько один её текущий член.

Answer 5

В PascaslABC.NET большинство функций, работающих с динамическим массивом или строкой, стремятся превратить их в последовательности (в силу вышенаписанного). Расширение .Print/.Println - не исключение и после вызова возвращает последовательность.

Answer 6

var A:=ArrRandom(20,1,100).Println; поместит в А именно последовательность (точнее, формулу для её получения). var :=ArrRandom(20,1,100) поместит в А массив. Последующий вызов A.Println также сформирует последовательность, но из-за отсутствия оператора присваивания, она не будет зафиксирована.