Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
плвлаовг
04.01.2023 04:02 •
Информатика
Паскаль найти сумму и произведение элементов массива, элементы заданы с клавиатуры, размер произвольный
Показать ответ
Ответ:
Лёва9898
21.06.2020 04:54
Var a: array [0..5] of integer;
i, m, s: integer;
begin
m := 1;
for i := 0 to 5 do
begin
readln(a[i]);
s := s + a[i];
m := m * a[i];
end;
writeln(s, ' ', m);
end.
:)
0,0
(0 оценок)
Популярные вопросы: Информатика
catnizamova
01.04.2022 15:13
Help! нарисовать в паскале дом и дерево!...
Bogdan8950
01.04.2022 15:13
Запросколичество страниц (тыс.) фрегат & эсминец 500 фрегат 2000 эсминец 2500 сколько страниц (в тысячах) будет найдено по запросу фрегат |эсминец...
Пикачу1111111111
03.06.2022 05:09
Какие из предложенных команд может выполнять исполнитель Кузнечик? Выберите несколько вариантов ответа. Укажите один или несколько правильных вариантов ответа: закрасить назад...
Tumkanator
09.12.2022 06:29
c++ Циклы с предварительным и последующим условием (while, do-while) Составить программу, вычисляющую для заданного x сумму: При суммировании учитывать только слагаемые, большие...
malievaanzira05
09.03.2023 15:20
Запишите полные имена всех файлов 1)локальный диск(с: ) 2)мои документы 3)фильмы 4)иванов 5)петров 6)интересный фильм.avi 7)qbasic.exe 8)письмо.txt 9)рисунки 11)море.bmp...
VitalЯ
09.03.2023 15:20
Сколько секунд потребуется модему, сообщения со скоростью 14400 бит/с ,чтобы передать цветное растровое изображение размером 640 на 480 пикселей ,при условии , что цвет каждого...
ronnedtoby
21.04.2020 06:22
Язык с++функция char* push(char* str) получает строку str и вставляет в первую позицию символ, стоящий на этой позиции (дублирует этот символ). функция возвращает адрес преобразованной...
oliaborisova123
27.07.2022 10:53
Итоговый тест «macromedia flash» вариант 1вопрос 1. flash- технология основанаответ 1. только на векторной графике и анимацииответ 2. только на растровой графике и анимацииответ...
Екатерина2610
15.03.2023 13:26
24,25,26,28 по инфе надо . завтра кр, понять не могу как решать. хелп ...
tushenka88
07.09.2022 15:19
Параллельные прямые a, b и с не лежат в одной плоскости. Прямая n пересекает прямые a и b. Каково взаимное расположение прямых n и c?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, m, s: integer;
begin
m := 1;
for i := 0 to 5 do
begin
readln(a[i]);
s := s + a[i];
m := m * a[i];
end;
writeln(s, ' ', m);
end.
:)