Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Satana6666666661666
20.04.2021 04:37 •
Информатика
Массив а вводится с клавиатуры. найти сумму его элементов. размер произвольный. паскаль
Показать ответ
Ответ:
sirius2010
07.09.2020 21:29
Var
a: array[1..100] of integer;
i, n, s: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
begin
Readln(a[i]);
s := s + a[i];
end;
writeln('s = ', s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
AnnKulibyakina
31.12.2022 17:17
Выберите (отметьте галочкой) устройства вывода графической информации. * ФотоаппаратПринтерКлавиатураСканерМониторВидеокамераДиктофонМикрофонГрафический планшетГрафопостроитель...
aidos0278gmailcom
05.01.2023 00:41
Выберите (отметьте галочкой) устройства вывода графической информации. * ФотоаппаратПринтерКлавиатураСканерМониторВидеокамераДиктофонМикрофонГрафический планшетГрафопостроитель...
NickWorld
06.12.2022 22:00
Вариант 1Задание 1, Дано целое число. Напишите программу, которая увеличивает эточисло в два раза, если оно положительное, в противном случае возводит его вКвадрат.Задание 2. Дано...
Oksana321
04.03.2022 07:47
среди приведеных ниже трех чисел записаных в различных системах счисления найдите максимальное и запишите его в ответе в десятичной системе счисления в ответе запишите только число...
asylzhan1977
17.03.2023 06:25
Жергілікті желі бұлауқымды желі бұл...
magnatca
03.03.2020 13:48
Гибридное облако - это вид облака ...
Alina666999C
03.03.2020 13:48
Закодируй слова свойства информации таблицей ASCLL ...
mynameisNastia
30.06.2022 06:50
Исполнитель Редактор получает на вход строку цифр и преобразовывает её. Редактор может выполнять две команды, в обеих командах v и w обозначают цепочки символов. заменить (v, w)...
Dispensable
09.08.2020 23:47
Еще один вариант уравнения: дано первое слагаемое 540: x, второе слагаемое 15, сумма 150: 2, как правильно составить уравнение...
oli21
09.08.2020 23:47
Умоляю, надо покрасили 0,9 м рельсов,что составляет 46,8% всей длины рельсов.сколько метровнадо ещё покрасить что бы было покрашенно 65%?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array[1..100] of integer;
i, n, s: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
begin
Readln(a[i]);
s := s + a[i];
end;
writeln('s = ', s);
end.