дан массив целых чисел.
Найдите сумму элементов массива меньших 5
Приложения:
![](https://st.uroker.com/files/d81/d810ca43292db49cbe0f91ef4a29c312.jpg)
BobbyFresnel:
Программа? Язык?
Ответы
Ответ дал:
1
Ответ:
var a:array [1..10] of Integer;
i,s:Integer;
begin
Write('Массив ');
for i:=1 to 10 do
begin
a[i]:=random(13);
if a[i]<5 then s:=s+a[i];
write (a[i], ' ')
end;
WriteLn;
Write('Сумма элементов меньше 5 равна ',s)
end.
Объяснение:
Массив из 10 элементов.
Заполняется автоматически (функция random).
Ответ дал:
0
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, -99, 99);
a.Println;
a.Where(p -> p < 5).Sum.Println;
end.
Пример прилагается
Приложения:
![](https://st.uroker.com/files/178/17843a7aefa366bb98f6f1efa408b6e5.jpg)
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад