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.

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.