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.
Пример прилагается
