Niekgalb
5 год назад
Дан массив целых чисел заданных до 100 найти сумму элементов массива больше 50 и кол во элементов больше 50 плз, желательно с программой плз ребятки
ОТВЕТЫ
Стоян
Oct 24, 2020
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
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
179
Смежные вопросы:
