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

Ответы 1

  • vara,b,c:integer;d:array [1..50] of integer;beginfor a:=1 to 50 do begind[a]:=random(201);b:=b+d[a];end;writeln('Сумма: ',b);End.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years