Написать программу для вычисления суммы от 100 случайных натуральных чисел. Каждое число принадлежит промежутку от 0 до 100
Answers & Comments
Sho0oTeR
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.
Answers & Comments
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.