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.