Дан массив целых чисел.
найдите сумму элементов массива меньших 5​

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).

begin

 var n := ReadInteger('n=');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a.Where(p -> p < 5).Sum.Println;

end.

Пример прилагается