Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
sanekakot
13.02.2020 04:35 •
Информатика
Задайте массив из 5 случайных элементов. выведите на экран сумму его элементов и сами элементы. паскаль
Ответ:
anyta141006
08.10.2020 13:12
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(5,-99,99); a.Println;
Writeln('Сумма элементов равна ',a.Sum)
end.
Пример
21 -79 -52 57 -64
Сумма элементов равна -117
0,0
(0 оценок)
Ответ:
Ольга1738
08.10.2020 13:12
Var a:array [1..5] of integer;
i,s:integer;
begin
for i:= 1 to 5 do a[i]:= Random(51);
writeln(a);
for i:=1 to 5 do s:=s+a[i];
writeln(s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
benleo2001
17.01.2023 10:41
Почему люди думают что компьютер это прорыв 20 века...
дима22819
21.05.2020 23:16
Определите адрес сети и номер компьютера:192.168.104.109 255.255.255.252172.16.12.12 255.255.255.24810.10.40.15 255.255.255.224...
nek444
30.05.2020 22:50
Які етапи реалізації проектів ви знаєте?...
maha80
26.04.2022 17:13
Максимум трёх чисел Даны три целых числа. Найдите наибольшее из них (программа должна вывести ровно одно целое число). Используйте ровно ДВА И ТОЛЬКО ДВА оператора сравнения...
Liana250202
12.01.2023 10:40
1. как оценить объем одной страницы учебника в количестве знаков. 2.что такое бит с позиции объемного подхода к измерению информации?...
kucherenkolshaLexa
13.04.2020 11:51
Определите количество выпускаемых комплектов мебели трех видов, обеспечивающее получение максимальной прибыли. комплект мебели «свирель» включает 1 кровать, 2 комода, трюмо,...
ооо321
13.04.2020 11:51
Дано натуральное число. определить: количество четных цифр в нем. составное условие и более одного неполно-го условного оператора не использовать;...
Kurolama
19.03.2020 05:07
Вводится четырёхзначное число. Определить количество различных чисел, которое можно составить из цифр данного числа (цифру нельзя дублировать, если в исходное число она входит...
Shkolnikvolodya
04.05.2021 21:09
Вычислите mэ и э следующих веществ: no2, cacl2...
ragmova
04.05.2021 21:09
Заменить слова фразеологизмами: долго,умный....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(5,-99,99); a.Println;
Writeln('Сумма элементов равна ',a.Sum)
end.
Пример
21 -79 -52 57 -64
Сумма элементов равна -117
i,s:integer;
begin
for i:= 1 to 5 do a[i]:= Random(51);
writeln(a);
for i:=1 to 5 do s:=s+a[i];
writeln(s)
end.