Войти
Регистрация
Спроси 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 оценок)
Популярные вопросы: Информатика
Swerri
01.04.2022 15:13
Решить даны 3 числа найти сумму 2 наибольших чисел...
catnizamova
01.04.2022 15:13
Help! нарисовать в паскале дом и дерево!...
лиза2713
01.04.2022 15:13
Сколько школьных учебников ёмкостью 350 килобайт можно разместить на трех дюймовой дискете...
Bogdan8950
01.04.2022 15:13
Запросколичество страниц (тыс.) фрегат & эсминец 500 фрегат 2000 эсминец 2500 сколько страниц (в тысячах) будет найдено по запросу фрегат |эсминец...
kattya100
18.08.2021 20:13
Решить кроссворд : ) по горизонтали: 3 . французский , в честь которого названа прямоугольная система координат кодирования информации с чисел кодирования информации с символов...
MaxSorv
18.08.2021 20:13
Вывести на экран квадрат и куб нечетных чисел от 1 до 9...
KILKOlo
07.04.2020 18:37
«Что такое культура общения?». Определите, кто будет адресатом вашей речи, какова цель вашего выступления (информировать или убедить в чём- нибудь). Составьте текст сообщения...
mila7772
23.09.2022 05:49
Знайти та оформити у Tinkercad мінімум два варіанти програми Blink (приклад програми на картинці sshot-14.png ) з використанням функції часу millis()....
zachar3
04.08.2022 12:58
Чему станет равна величина N после выполнения ряда присваиваний N:=6; N:=N*N; N:=N+N; N:=(N-2)/10 ?...
ilacher12
16.06.2022 09:31
Число FDA116 перевести в десятичную систему счисления....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.
:)