Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
KiviPlayYT
01.04.2023 14:53 •
Информатика
Формировать десять случайных чисел ,от 5до 20,вычислить их сумму. паскаль.
Ответ:
dizi17
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 оценок)
Ответ:
IncolaRO
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 оценок)
Популярные вопросы: Информатика
Gbdngggvg
11.09.2020 11:01
Изменение объектов во времени описывается с : 1) статической информационной модели 2) предметной информационной модели 3) динамической информационной модели 4) логической...
Мама1мама2
06.02.2020 05:53
Нужно решение буду завтра итоговая контрольная: дан массив чисел d[i],в котором 7 элементов.найти сумму четных элементов массива,и вычеслить среднее арифметическое всех...
аминат41
10.11.2020 05:47
Дано натуральное число N. Получите число, полученное перестановкой цифр исходного числа в обратном порядке. Выведите на экран новое число и разность между исходным числом...
abramov26ozzk18
19.02.2021 11:54
7. Якого значения набуде змінна а після виконання циклу? і: 2; a:=0;while i 5 dobeginа: =a+i;і: =i+1;end;...
золотое5руно
30.07.2020 12:42
Vba дан динамический массив х(n). вывести элементы массива x, каждый из которых представляет собой квадрат элемента массива y, стоящий на нечетном месте....
оаеквс
30.07.2020 12:42
По заданному логическому выражению составить логическую схему(logisim) и построить таблицу истинности: 1. а and в or not с; 2. a and not b or c....
ваняшка
30.07.2020 12:42
Задана последовательность из n вещественных чисел. определить количество четных и количество нечетных элементов последовательности. оператор цикла с параметром;...
AzaLin1
27.01.2022 08:55
Описание 1 современного компьютерного устройства...
pn89290448853
11.02.2023 15:49
Прочитайте содержание текста и выделите внешние и внутриполитические причины распада первых тюркских государств. Текст .После гибели Сулука каганом стал его сын Тукарсан...
Zver7777
11.02.2023 15:49
А) подумайте, кому из своих близких вы бы хотели сказать слова благодарности и за что. Напишите этому человеку письмо благодарности (объем 120-150 слов). Б) В своем письме...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.