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

Question

Информатика

Победа

5 сентября, 00:00

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

+1

Ответы (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.