Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
OmegaLULx
30.08.2020 10:27 •
Информатика
Массив а вводится с клавиатуры. найти сумму его элементов. размер произвольный. составить программу.
Показать ответ
Ответ:
Masha6996
10.08.2020 18:26
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqInteger(ReadInteger).Sum)
end.
Пример
7
-5 13 19 0 -3 21 11
56
0,0
(0 оценок)
Ответ:
Ми55555
10.08.2020 18:26
Program Ok;
const n = 10;
var
A:array[1..n] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to n do
begin
read(A[i]);
sum:=sum+A[i];
end;
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sssqwdsgdsgds
15.05.2021 17:30
Ученик отправил учителю по электронной почте файл объемом 15 кб. если пропускная сети составляет 1024 бит/сек, определите время передачи файла ...
AlexCh1
13.06.2022 17:29
Кто разбирается в PYTHON решите задачу Обработка текста Напишите программу для обработки текста. На вход вашей программы подаётся многострочный текст, причём число строк заранее...
annakota2
07.03.2020 10:32
Брошюра содержит 16 страниц, на каждой из которых в среднем по 32 строки, содержащих 64 символов каждая. Сколько килобайт составляет информационный объём текстового файла с...
Nastik6634
26.11.2020 04:30
Сколько натуральных чисел расположено в интервале?41(8) x S E2(16)Найдите значение выражения. ответ запишите в десятичной системе счисления 1010000(2) + 323(8) - Аl(16)...
qwerty854
13.01.2020 10:19
Втаблице фрагмент школьного расписания: сколько записей в этой таблице удовлетворяют условию: (предмет = или пред-мет = ‘’) и (урок = 2 или день_недели = пятница )...
thewitefox
09.04.2020 09:32
Сразветвляющимся алгоритмомпри х =30 везде пишет фно хотя должно считать кроме условия 200-х 0...
приветЯ11
16.04.2020 22:15
N1 1°. для чего предназначены текстовые процессоры? 2\ какие расширения имени текстовых файлов вы знаете? 3*. какие операции над текстом можно выполнять в текстовом процессоре?...
tulenchik26
16.04.2020 22:15
Javascriptкак правильно написать код, чтоб чекбоксы корректно заработали? сейчас код идёт в else игнорируя if (без использования id)...
elizavetaliza261204
09.08.2021 17:18
Друзья пошли в лес и собрали много грибов.когда они пересчитали их, оказалось,что они собрали всего 100 грибов, среди них-60 волнушек, 15-груздей, 5- белых, 20-лисичек. сколько...
Varyachka228
06.04.2020 00:05
Составить программу в паскале. 1 . даны три числа. если их сумма меньше 1, то числа удвойте. 2. даны два числа x и y. удвойте первое число, если оно больше второго, и оба числа,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqInteger(ReadInteger).Sum)
end.
Пример
7
-5 13 19 0 -3 21 11
56
const n = 10;
var
A:array[1..n] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to n do
begin
read(A[i]);
sum:=sum+A[i];
end;
writeln(sum);
end.