Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
AnnaLOVEannaLOVEanna
23.10.2022 12:45 •
Информатика
Напишите программу на языке программирования паскаль в результате выполнения которого получалась сумма всех элементов массива
Ответ:
Диарочка1
08.10.2020 00:40
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('S=',a.Sum)
end.
Пример
n= 13
-33 4 19 46 -23 19 -32 31 -10 48 -13 -32 -10
S=14
0,0
(0 оценок)
Ответ:
vlad87456
08.10.2020 00:40
Var a: array [1..20] of integer; i: integer; sum: integer;begin
sum:=0; for i:=1 to 20 do begin a[i] := random(20); write(a[i],' '); sum:= sum+a[i]; end; writeln(); writeln('Сумма всех элементов : ',sum); end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Мэйбл123456789
10.04.2023 10:18
Определите, что будет напечатано в результате работы следующей программы .. алг нач цел s, k s : = 1 k : = 1 нц для k от 1 до 5 s : =s * k кц вывод s кон p.s объясните как...
ilias1924
09.03.2021 15:00
Cообщение записанное буквами из 128 символьного алфавита занимает 2 страницы 50 строк .какой объем информации оно несет ,если в каждой строке 60 символов ?...
Адамчик11
12.03.2022 13:36
Информационный объем текста, набранного на компьютере с использованием кодировки кои-8 (каждый символ кодируется 8 битами), — 4 кб. определить количество символов в тексте...
ПРИВЕТ174rus
25.02.2021 04:25
Не является форматом видеофайлов AVI MOV МР4 MIDI Вопрос №2 ? Не является форматом аудиофайлов MP3 MIDI WAV MOV Вопрос №3 ? Мультимедиа – это... программа для записи (захвата)...
marivenkova
04.11.2020 10:46
Нужно сделать таблицу в эксель где есть: 1 Число месяца 2 имя работника 3 Кол-во проданных товаров Нужно: сделать отдельные колонки с именами работников чтоб в них выводилось...
ealembi5
19.01.2021 17:27
C++ даны два двузначных числа А и В. Из этих чисел составили 2 четырехзначных числа: первое число получили путем написания сначала числа А, затем В. Для получения второго...
Mayramukovsaid
08.12.2021 23:13
Python: Факториал натурального числа n определяется как произведение всех натуральных чисел от 1 до n включительно и обозначается n!: n!=1∗2∗3∗...∗n Например, 3!=1∗2∗3=6....
Agarin
11.10.2020 16:16
РЕШИТЕ ЧЕРЕЗ ТОЛЬКО WHILE «Долголетие» в честь Нового года хочет на чеках печатать ёлочки. Для этого они попросили написать специальную программу. Программа должна запрашивать...
straza982
07.10.2021 06:46
Элементы интерфейса PowerPoint. а)слово,абзац,сторона. b)заголовок,меню,строка состояния,область задач. c)экран монитора. d)рабочая область....
mskobetsnata
08.09.2022 21:24
Здравствуйте. Простая задача, а не пойму в чём дело. Задана матрица А размером 4 x 5. Оформить ввод с клавиатуры номера столбца – k Î [1, 5]. Образовать массив В, каждый...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('S=',a.Sum)
end.
Пример
n= 13
-33 4 19 46 -23 19 -32 31 -10 48 -13 -32 -10
S=14
sum:=0; for i:=1 to 20 do begin a[i] := random(20); write(a[i],' '); sum:= sum+a[i]; end; writeln(); writeln('Сумма всех элементов : ',sum); end.