Подсчитать сумму 50 случайных чисел из диапазона от 0 до 200

Question

Информатика

Мелентий

15 января, 14:49

Подсчитать сумму 50 случайных чисел из диапазона от 0 до 200

+4

Ответы (1)

Знаете ответ?

Магдалина · Answer 1

Var

a, b, c:integer;

d:array [1 ... 50] of integer;

begin

for a:=1 to 50 do begin

d[a]:=random (201) ;

b:=b+d[a];

end;

writeln ('Сумма: ', b) ;

End.