Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
жасулан16
15.02.2022 17:45 •
Информатика
Вмассиве хранится информация о сопротивлении каждого 20 элементов электрической цени. вес элементы соединены последовательно. определить общее сопротивление цепи. написать программу
Показать ответ
Ответ:
Kirito081
30.06.2020 23:16
VAR
i, sum: Integer;
a: Array [1..20] of Integer;
BEGIN
for i:= 1 to 20 do
Read(a[i]);
sum := 0;
for i := 1 to 20 do
sum := sum + a[i];
Write(sum);
END.
0,0
(0 оценок)
Популярные вопросы: Информатика
dsgsdfgasdasd
03.03.2022 06:26
Логические функции MS Excel» Ученики сдавали зачет. Каждый из них получил отметку. Если больше – зачет сдан. Менее – не сдан....
Dikiy2004
06.04.2020 04:04
Используя набор данных «Важнейшие проливы», составить таблицу и выяснить минимальную и максимальную ширину проливов, минимальную и максимальную глубину проливов и среднюю длину...
Viksalexa
20.06.2022 05:59
Какой объем видеопамяти в Кбайтах понадобится для хранения изображения с разрешением 256*64 пикселей, если в изображении используется палитра в 32 цвета?...
sasha13410
22.11.2022 08:10
4. Сукупність всіх об єктів, властивості ЯКИХ і відношення між якимирозглядаються у відповідній галузі — ...модельС) предметна галузь...
scumak399p07zdf
10.07.2022 05:10
вас с информатикой,умоляю.Желательно с объяснениями.НАДО УЖЕ ЧЕРЕЗ ДВА ЧАСА СДАВАТЬ,НУ...
Есения816
30.06.2022 08:04
Угадай, какое свойство мы сделали секретным, и запиши верный ответ.Заполни таблицу до конца, определи, какое свойство мы использовали. ОТВЕТИТЬКот - 3;Лягушка - 7;Крыса - 5;Крокодил...
Mognolia
05.12.2021 21:57
Раздел 5. Информационные технологии Текстовый процессор MS Word 1. Программа WordArt позволяет: 1) создавать формулы; 2) создавать рисунки; 3) всячески видоизменять написание...
Zvezdo4kaKatty
21.08.2020 05:27
9. Изображения какой графики реалистичны, обладают высокой точностью передачи градаций цветов и полутонов:1. фрактальной;2. растровой;3. векторной;4. трёхмерной;10. Изображения...
lava777pop
02.12.2020 11:08
1)Необходимо ввести число и вывести количество цифр 7 в числе2)Необходимо ввести число и посчитать сумму всех 3 в числеС++ используя переменную While. Обычную не...
mangle56
05.01.2020 11:28
Пользователь вводит количество лепестков ромашки (N). Программа определяет результат гадания на ромашке – «любит / не любит» и выводит результат на экран....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, sum: Integer;
a: Array [1..20] of Integer;
BEGIN
for i:= 1 to 20 do
Read(a[i]);
sum := 0;
for i := 1 to 20 do
sum := sum + a[i];
Write(sum);
END.