Question

В массиве случайных чисел найти сумму элементов,значения которых меньше 15
Напишите пожалуйста программу

Answer 1

var i,sum: Integer;
a:array[1..10] of Integer;
begin
sum:=0;
Randomize();
for i:=1 to 10 do
begin
a[i]:=random(20);
if(a[i]<15) then sum:=sum +a[i];
write(' ',a[i]);
end;
writeln();
writeln('сумма элементов < 15= ',sum);
end.