Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите вычеслить сумму чисел меньше 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.

Ответ оставил Гость

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.