Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
masyanyapar
01.01.2022 05:40 •
Информатика
Формировать десять случайных чисел ,от 5до 20,вычислить их сумму. паскаль.
Ответ:
Вероника8381
05.10.2020 05:07
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('s=',ArrRandom(10,5,20).Println.Sum)
end.
Пример
9 14 6 6 20 16 12 11 8 5
s=107
0,0
(0 оценок)
Ответ:
ivan01356
05.10.2020 05:07
Program srand;
const
C = 10;
var
s, i: integer;
begin
s := 0;
for i := 1 to C do
s := s + (random(16) + 5);
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
saraikina122
13.02.2020 08:53
Обьясни чем отличаеться кодирование и декодирование ...
Tenb11
09.10.2021 05:50
Выбери функции форматирования MS Excel. Верных ответов: 2 вставка диаграмм выравнивание данных по центру, левой и правой границе ячейки копирование ячейки в ячейку загрузка...
ksenia7567012
29.01.2020 22:50
Какое наименьшее количество клеток нужно отметить на клетчатой доске 6x8, чтобы 1) среди отмеченных клеток не было соседних (имеющих общую сторону или общую вершину), 2) добавление...
kolya14445
13.03.2022 17:24
Впрограмме используется одномерный целочисленный массив a с индексами от 0 до 9. ниже представлен фрагмент программы, в котором значения элементов сначала , а затем меняются....
Monimix
12.04.2023 17:10
Сканируется цветное изображение размером 10 на 10 см. разрешающая сканера 1200 на 1200 dpi, глубина цвета 24 бита. какой информационный объем будет иметь полученный графический...
МагистрСемен
29.11.2020 00:05
Почему появлению письменности дало толчек развитию науки и культуры...
werwedsgfdg
19.03.2021 00:06
Программа turbo pascal.11 класс. 1.вычислить площадь круга. 2.объём цилиндра....
natik49
19.03.2021 00:06
Пример для каждого свойства информации : полная, полезная,актуальная,достоверная,точная,понятная,объективная....
айсу17
19.03.2021 00:06
Какую роль играла и играет информация в развитие общества...
DisbeliefPapyrus
12.04.2022 10:21
Стестами: 1. вещество, которое переносит кислород по организму: а) гемоглабин б) трипсин в) протромбин г) пепсин 2. вид ткани, которая преобладает в составе гортани: а) костная...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('s=',ArrRandom(10,5,20).Println.Sum)
end.
Пример
9 14 6 6 20 16 12 11 8 5
s=107
const
C = 10;
var
s, i: integer;
begin
s := 0;
for i := 1 to C do
s := s + (random(16) + 5);
writeln(s);
end.