Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
LizaVasilenko3636
21.02.2020 14:30 •
Информатика
Вычислить сумму пяти целых чисел, которые являются массивом. (pascal)
Показать ответ
Ответ:
ztv1978
26.08.2020 13:50
Const
N = 5;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
S:=0;
Write('Введите пять целых чисел: ');
For i := 1 to N do
Begin
Read(A[i]);
S:=S+A[i]
End;
WriteLn('S = ',S);
ReadLn
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Dion111
05.04.2020 09:50
Переведите числа в двоичную систему счисления 200,489,543,950,1025...
Shaman12233
05.04.2020 09:50
Склавиатуры вводиться строка и буква ,необходимо составить программу которая подсчитывает сколько раз эта буква встречалась в программе?...
ulyana1512200214
20.01.2022 03:40
Вспомните по одному объекту каждого из множеств и запишите их единичные имена. общее имя 1)мореплаватель 2)ученый 3)композитор 4)писатель 5)сказочник 6) герой 7)информационный...
FarHowl
21.11.2020 02:47
На трёх животных: осла, козла и верблюда погрузили поклажу, которую надо было доставить в город. кто-то из них тащил бочонки с маслом, а кто-то – корзины с финиками....
keewowzor2h
21.11.2020 02:47
Пользователь компьютера может вводить в минуту 200 знаков. мощность используемого алфавита равна 256. какое количесвто информации может ввести пользователь в комьютер...
natslig
07.07.2021 00:47
Какой минимальный объем памяти (в битах) необходим для хранения одной точки изображения, в котором 32 различных цвета...
toper55
10.11.2021 00:12
30 ., ! (1)что нужно делать со спамовыми письмами? (2)можно ли зашифровать сообщение электронной почты? (подробно,если можно)...
KINGOFMATH1
30.12.2021 10:26
Вычислить 3 знака после запятой √78678...
kerimagaevakk
26.07.2020 00:24
Найдите произведение всех однозначных чисел среди 8 введенных.паскаль...
tikmehr
28.04.2023 08:55
Укажите тип входных и выходных данных при а равно 10 и b равно 5...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N = 5;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
S:=0;
Write('Введите пять целых чисел: ');
For i := 1 to N do
Begin
Read(A[i]);
S:=S+A[i]
End;
WriteLn('S = ',S);
ReadLn
End.