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

kadochkina061

28.07.2022 16:15

Есть ответ 👍

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

148

243

Посмотреть ответы 2

89539123898

Информатика

4,8(40 оценок)

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.

musiclove2

Информатика

4,6(62 оценок)

Задание 1:

begin var a := ArrRandom(ReadInteger('Количество:'),-15,10); Println('Массив:',a); Println('Сумма:',a.Where(x->x<0).Sum); end.

Задание 2:

begin var a := ArrRandom(ReadInteger('Количество:'),-42,20); Println('Массив:',a); Print('Элементы:'); a.Where(x->x mod 3 = 0).Print; end.

Пример работ:

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.