Помогите вычеслить сумму чисел меньше 20 должно быть примерно так но без a:array [1..100]...

Question

Помогите вычеслить сумму чисел меньше 20
должно быть примерно так но без a:array [1..100] of integer;
(информатика 9 класс)
Program Program1;
Var
a:array [1..100] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 100 do
a[i]:=random(20);
k:=0;
for i:=1 to 20 do
begin
write(a[i],', ');
k:=k+a[i];
end;
Writeln('Сумма чисел меньше 20: ',k);
end.

Comments

А чисел нужно перебрать 100 ?

---

Нет,числа должны быть меньше 20,но числа должны подбираться функцией рандома

---

Нет, я это понял, просто у тебя всего в массиве 100 чисел. Это фиксированная величина, или её можно самому выбрать ?

Answer 1

Var i,s,a:integer;
Program Program1;
var i,s,a:integer;
begin
s:=0;
For i:=1 to 100 do
begin
a:=random(20);
s:=s+a;
write(a,', ');
end;
writeln;
writeln('Сумма чиселменьше 20: ',s);
end.