Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Yrikrylko
30.11.2021 13:49 •
Информатика
Задайте массив из 5 случайных элементов. выведите на экран сумму его элементов и сами элементы. паскаль
Ответ:
МихаилКузмичёв
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 оценок)
Ответ:
Nastyxas
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 оценок)
Популярные вопросы: Информатика
siniTamy
05.01.2020 12:48
Склавиатуры вводится натуральное число. определите сколько в его записи нечетных чисел...
flinko4
23.11.2020 01:27
Написать программу вычисляющую факториал введённого числа. c++ используя циклы....
lizahi
24.04.2020 16:05
Какие основные действия с объектом типа документ можно выполнить с контекстного меню ?...
rbhz
14.06.2021 12:41
Решите задание если можно с объяснением!...
cnastya970
01.10.2022 21:28
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:(10, 10); (10, 6); (–4, 8); (2, 9); (12, 7);...
Карапиди
29.01.2020 11:10
ПРОСТО ФОРМУЛУ В ЭКСЕЛЬ.Год является високосным, если его номер кратен 4, однако из кратных 100 високосными являются лишь кратные 400 (например,1700, 1800 и 1900...
сдаддае
19.02.2022 10:02
Какое количество информации больше? 4 килобит или 1024 байт?...
mayoll
01.01.2022 11:52
20 символдан тұратын хабар 64 символдық алфавиттік әріптерімен жазылған.Ол қандай ақпарат мөлшерін көрсетеді...
nabiullinnazim
26.10.2021 01:20
Найдите число есои 1/3 этого числа равна 7...
batya757757
22.06.2022 06:30
9м 34см — 4м 52см= 3ц7кг + 5ц16кг= 4сағ 34мин + 67мин= 6сағ20мин —75мин=...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.