Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
danila9988p09k31
06.01.2023 07:31 •
Информатика
Воднородном массиве найдите произведение ненулевых элементов
Показать ответ
Ответ:
JAHGH
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 оценок)
Популярные вопросы: Информатика
nikitamerenkov
23.01.2021 13:55
Dat[2] – второй ученик и т. определите, что будет напечатано в результате работы следующей программы. алг нач целтаб dat[1: 10] цел k, m, n dat[1] : = 7; dat[2] :...
belos1988
08.02.2021 05:47
Составить алгоритм нахождения всех неотрицательных чисел стоящих на четных местах в последовательности x1,x2,...
ert12375
01.11.2020 12:13
Написать программу в паскале. дана площадь s круга. найти его диаметр d и длину l окружности, ограничивающей этот круг, учитывая, что l = 2·π·r, s = π·r^2 . в качестве...
sos130
01.11.2020 12:13
Даны два числа a и b. вам нужно вычислить их сумму a b. в этой вам нужно читать из стандартного воода и выводить ответ в стандартный вывод...
NikitaSuperkryt228
01.11.2020 12:13
Массив одномерный a n элементов подсчитать произведение отрицательных элементов этого массива решите , вопрос жизни и смерти...
Фара1323
09.01.2021 16:03
Pascal abc 8 класс, ••• 1.составить программу, которая выводит произведение целых чисел от a до 20. 2.даны натуральные числа от 20 до 50, вывести те, которые делятся...
lida50
10.01.2020 16:01
Какое наибольшее натуральное десятичное число можно закодировать 4-мя битами?...
jykov2000
06.12.2020 08:55
Определить номер квартала по введенному номеру месяца. иначе некорректный ввод...
gay2002
06.12.2020 08:55
Документ содержит точечную черно-белую фотографию 10*15 см. каждый квадратный см содержит 600 точек,каждая точка описывает 4 битами. каков общий информационный объем...
marinaozerova3
06.12.2020 08:55
Дан одномерный массив. записать массив в обратном порядке без использования дополнительного массива. составить блок-схему и программу в паскале....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.