Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
KSEN012
10.12.2021 20:18 •
Информатика
Массив а вводится с клавиатуры. найти сумму его элементов. размер произвольный. составить программу.
Показать ответ
Ответ:
Misha211103
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 оценок)
Ответ:
horan66
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 оценок)
Популярные вопросы: Информатика
iprin
14.04.2021 16:16
На с#, ! ввести одномерный массив, вывести его. выяснить, какое число в массиве встретится ранее – положительное или отрицательное (нули не рассматривать). если положительное...
NarkoBaronTif
14.04.2021 16:16
Пусть а[1], a[n] - целые числа. требуется найти сумму отрицательных и сумму неотрицательных элементов массива....
gtagiev
28.04.2020 13:44
Изучи программный код и определи его назначение 5 класс...
ттууппааяя
07.05.2021 13:07
Дано описание массива: constb:array[1..5]ofinteger=(4,12,8,71,101); Верно ли описан массив?...
DianaSi12
24.10.2020 18:45
с шифром, Сегодня Цезарь в зеркало [3] сказал: 11100010 10100000 10100111 11100010 10100000 10001101 11100010 10100000 10001011 11100010 10100000 10001001 11100010 10100000 10100100...
Sanya339
16.08.2020 10:14
Написать программу решения ребуса: КУБ=(К + У + Б)^3 . При решении ребусов одинаковым буквам соответствуют одинаковые цифры. паскаль...
zenkov2000cemen
24.08.2021 08:32
У юли 12 разных фломастеров и 9 разных карандашей. Сколькими она может составить набор из 4 фломастеров и 2 карандашей?...
Petrosyaniha
14.03.2022 18:13
Потрібно заповнити пропуски, До іть ...
Albinnabel
08.05.2020 04:55
14. Задание объясните значение фразеологизма «точку зрения», запишите. Используя не менее дву: предложений, опишите ситуацию, в которой будет уместно употребление этого фразеологизма....
alena0bashinskaya
16.06.2022 03:59
Функцію задано формулою у = (6х – 3) + 4(0,2х – 1). Знайти значення аргументу, при якому відповідне значення функції дорівнює - 3...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.