Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
XXXOtlichnikXXX
03.03.2022 09:11 •
Информатика
Сделать в pascal abc. найти сумму первых 5-ти элементов одномерного массива
Показать ответ
Ответ:
ulyanasims
05.07.2020 12:56
Program element_massiva5
var
Sum, i : integer;
a : array [1..15] of integer;
begin
Sum := 0;
writeln('введите 15 чисел массива');
for i:=1 to 15 do
begin
readln(a[i]);
end;
Sum:=a[1]+a[2]+a[3]+a[4]+a[5];
Writeln(' ответ: ',Sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kasimova20001
24.01.2022 08:39
1. составьте схему по следующему описанию: близкие виды объединяются в один род. например: ворона, ворон, галка и грач объединены в род ворон. близкие роды объединяются...
andrej1790
23.11.2021 15:13
Дан фрагмент электронной таблицы. В ячейку D2 введена формула= A2*B1+C1. А В С D1 5 2 42 10 1 6В результате в ячейкеD2 появится значение: 61416242)Дан фрагмент электронной...
avorob
24.09.2020 15:21
Реши кроссворд 1сведения,новости. 2источник знаний,используется для чтения. 3орган обоняния 4орган зрения. 5то,откуда мы получаем информацию....
snejik07
07.10.2022 08:49
Запиши десятичное число 1377 в системе счисления с основвнием 8...
geliebtemutter
10.11.2021 18:44
Представьте словесное и графическое описание .выполните отладку алгоритма определить значение q=- a^3+b^3/bc...
nintendo161
05.04.2023 10:46
Информатика. 1. укажите цифровые носители информации: а) dvd-диски б) бумага в)фотопленка г) карта памяти 2.аналоговые носители информации: а)dvd-диски б)бумага в)...
лада143
20.10.2020 03:16
Число 301011 может существовать в системах счисления с основаниями: а) 2 и 10 б) 4и3 в) 4и8 г) 2 и 4...
хабиб36
31.07.2021 05:47
Составьте ребус для одного из следующих слов: информация, кодирование, хранение, передача, обработка. зарание )...
iphoneX10
31.07.2021 05:47
Вывести на экран значение n! , n – целое число, вводимое с клавиатуры....
ОвчинниковДанил
31.07.2021 05:47
Нужно решение сколько бит информации содержит сообщение объемом 128 килобайт?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
Sum, i : integer;
a : array [1..15] of integer;
begin
Sum := 0;
writeln('введите 15 чисел массива');
for i:=1 to 15 do
begin
readln(a[i]);
end;
Sum:=a[1]+a[2]+a[3]+a[4]+a[5];
Writeln(' ответ: ',Sum);
end.