Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
milka2636
07.10.2021 12:41 •
Информатика
Создать массив и найти сумму всех его элементов элементы массива вводятся генератором случайных чисел
Ответ:
insaimner
08.10.2020 20:45
PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Сумма значений равна ',a.Sum)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
fogive
30.12.2021 02:48
С объяснением хотелось бы.....
XTreams
07.07.2020 10:55
Решить примеры: 1) 6 mod 5 2) 3 div 2 3) 8 mod 1 4) 7 div 3 5) 10 mod 13 6) 14 div 15...
томка112
29.10.2020 05:12
Свойства информации на примерах...
sanyakryt
26.05.2021 03:41
Напишите программу, которая считает количество слов начинающиеся на букву a (через массив)...
oliver9999
20.11.2020 14:43
Умоляю хелп человек использует разветвляющие алгоритмы в примеры !...
анечка103
10.04.2022 00:06
На ленте машины поста расположен массив из n меток (метки расположены через пробел). нужно сжать массив так, чтобы все n меток занимали n расположенных подряд ячеек....
1205223
11.09.2020 04:41
1.даны 3 числа a, b, c вычислить их средние арифметическое (a+b+c)/3. 2.даны 2 числа a,b вычислить сумму их кубов. сделайте как на фотке !...
bodleva06
10.04.2023 22:07
Напишите программу. даны два числа. если числа больше нуля, то сложить их, а если меньше перемножить. ,...
ghosthog
20.04.2021 18:08
Сделайте программу для вычисления квадратного корня в программе кумир. . заранее ....
Alina970azhieva
14.08.2021 20:58
Напишите программу для перевода для перевода объема информации из бит в байты и килобайты...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Сумма значений равна ',a.Sum)
end.