Написать программу для вычисления суммы от 100 случайных натуральных чисел. Каждое число принадлежит промежутку от 0 до 100

Question

Информатика

Витюша

8 марта, 04:51

Написать программу для вычисления суммы от 100 случайных натуральных чисел. Каждое число принадлежит промежутку от 0 до 100

+5

Ответы (1)

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

Дуняша · Answer 1

Var a:array[1 ... 100] of integer;

i, s:integer;

begin

s:=0;

for i:=1 to 100 do begin

a[i]:=random (101) ;

Writeln ('a[', i,']=', a[i]) ;

s:=s+a[i];

end;

Writeln ('Сумма равна ', s) ;

end.