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

Question

Информатика

Велимир

30 декабря, 20:07

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

+2

Ответы (1)

Знаете ответ на вопрос?

Емельяша · 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.