Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
yoperesete
08.07.2022 14:02 •
Информатика
Написать программу для вычисления суммы от 100 случайных натуральных чисел. каждое число принадлежит промежутку от 0 до 100
Показать ответ
Ответ:
derakA
25.08.2020 01:48
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
msnyamkina
15.07.2020 19:55
 Найдите ответ!Вместо фигур закодированы схеме целые числа найдите их ответ: жёлтый круг закодирована числом-...зелёный треугольник закодирован числом-...синий квадрат закодирована...
lilibete007
18.09.2022 01:59
Найти сумму членов арифметической прогрессии если известны ее первый член, разность и число членов прогрессии (Python)...
Тимоха1911
17.02.2020 00:50
Нужно написать программу, которая переводит десятичные числа в двоичные. на языке паскаль. !...
Moon133
02.02.2023 02:05
В треугольнике ABCD угол С=90 градусов, угол В=60 градусов, АВ=8. Найдите неизвестные стороны, углы и высоту CH треугольника ABCD...
F1er
05.09.2022 06:59
Абиотикалык,факторлар катарын белгиле 1)Температура,жарык,браконьерлык,ылгалдылык2) Температура,жарык,рН,косыс,калдыктар3) Температура,жарык,рН, ылгалдылык4) Температура,жырткыштык,рН,...
MrsVaderr
05.09.2022 06:59
Патшаның қуатты билігі менция конституцииқ монархияны орнату кімнің талабы болды?...
Ilyapopovsky10001
06.02.2020 00:56
4 задание: назовите гос-ва, существовавшие в каждому из периодов...
Damirok21
25.01.2023 11:19
Ognusdno Языки речь 1527. 1) Прочитайте текст. Найдите в нём абзац, в котором говоритсяо том, какую роль язык играет в жизни людей, человеческого общества.Язык удивительное орудие,...
pomogiplizplizpliz
25.01.2023 11:19
8- тапсырма. Суретке қарап, диалог құрыңдар...
kuchakshoevaZ
27.08.2020 10:05
При решении задачи базально нужно составить дано, чертеж (карандашом), решение в решение нужно делать пояснение почему и как, и ответ. Задание 1. На прямой, а отмечены точки...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.