Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nosorpg02
23.05.2020 01:53 •
Информатика
Воднородном массиве найдите произведение ненулевых элементов
Показать ответ
Ответ:
vova01092005
05.10.2020 12:26
Program n1;
const n=10;
var a: array [1..n] of integer;
i,p: integer;
begin
p:=1;
for i:=1 to n do readln(a[i]);
for i:=1 to n do if a[i]<>0 then p:=p*a[i];
writeln(p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
owl9masha
25.08.2020 15:40
Напишите наибольшее целое число х,для которого истинно высказывание НЕ(х =8) 3)Напишите наибольшее целое число х,для которого истинно высказывание(х 43)...
yana017
29.02.2020 15:51
Раздели утверждения о компьютерных сетях на истинные и ложные ?...
arsenenkodiana6
06.04.2023 21:27
Не використовуючи формулу суми геометричної прогресії, обчислити 1+x+x2+x3+ ... +xn...
alinkamarkova82
16.12.2020 18:05
Як виконується фрагмент наведений на малюнку...
lyda777
16.10.2021 23:44
Напишите этот код ,я буду каждый день кидать за него 100Б...
МаксимГерасименкоВла
09.07.2022 16:04
ОБЪЯСНИТЕ КАК РЕШАЕТСЯ, НЕ ПРОСТО ОТВЕТ...
ClarisVerbis
26.02.2020 11:17
Что не так с моим кодом? разберите его Я его делал к заданию:Каков самый большой делитель числа 600851475143, являющийся простым числом?d=1a=194i=1for i in range(2,...
denbabichev96
02.03.2021 09:57
Для хранения сжатого растрового изображения размером 256 на 480 пикселей выделено 120 Кбайт памяти. Оригинал больше сжатого изображения на 35%. Какое максимальное...
yanashabanova1
11.06.2020 14:15
Найменший об єкт малювання у растровому зображенні...
нананавай
15.08.2021 08:04
Пайтон 1.Дано файл dani9.txt, який містить текст. Створити програму, яка надрукує всі слова налітеру s, які є в даному тексті...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n=10;
var a: array [1..n] of integer;
i,p: integer;
begin
p:=1;
for i:=1 to n do readln(a[i]);
for i:=1 to n do if a[i]<>0 then p:=p*a[i];
writeln(p);
end.