Вопрос, который вызвал трудности
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так: Подсчитать сумму 50 случайных чисел из диапазона от 0 до 200
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
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.