Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
милан64488
04.03.2022 03:34 •
Информатика
Дан массив из десяти целых чисел: {2; -3; 5; 0; 7; -4; 1; -1; -6; 9}. найти произведение ненулевых элементов массива
Показать ответ
Ответ:
dashaKrylova41
03.10.2020 02:55
Var
a:array[1..10] of integer;
i,d:integer;
begin
d:=1;
for i:=1 to 10 do begin
writeln(i ,' число массива = ');
read(a[i]);
if(a[i]<>0) then d:=d*a[i];
end;
writeln(' Произведение равно ', d);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ИЩЕ6
10.02.2022 15:43
Изобразите интерфейс приложения который будет вычислять периметр фигуры...
Кепики
01.01.2021 12:33
Спроектируйте интерфейс обучающей игры по ...
марян7878
27.11.2020 23:21
Определите типы данных в характеристиках автомобиля...
фыыыы1
02.01.2021 13:20
Определите значение переменной a после исполнения следующего алгоритма a: =3 b: =2 b: =9+a*b a: =b: 5*a с...
1MQL2
27.06.2022 20:21
Рассмотрите скриншоты программного кода для проверки арифметических действий программа выводит ошибку при запуске а) определите и исправьте ошибку б) предложить улучшение...
амаеру
21.06.2020 07:56
Спорстмен стрибнув з 10-метрової вишки у воду. визначити швидкість входження спортстмена у воду і час перебування спортсмена у польоті. опором повітря знехтувати....
irina567890
17.09.2022 21:44
Прямокутний ∆авс вписано в коло з центром о радіуса r. до гіпотенузи ас проведено медіану і висоту, кут між якими дорівнює меншому з кутів даного трикутника – куту...
neverr
21.06.2020 07:56
С4-мя : 1 раскройте скобки 1 yesterday i (to have) breakfast at the canteen.2 last summer we (to go) to the black sea.3 he (not to call) me last week.4 why this girl...
nbolshakova1
21.07.2022 14:22
Исследовать и построить функцию y= -1/4*(x^3-3x^2+4)...
232306
21.06.2020 07:56
Довжина секундної стрілки наручного годинника 1,5 см. яка швидкість руху кінця цієї стрілки?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:array[1..10] of integer;
i,d:integer;
begin
d:=1;
for i:=1 to 10 do begin
writeln(i ,' число массива = ');
read(a[i]);
if(a[i]<>0) then d:=d*a[i];
end;
writeln(' Произведение равно ', d);
end.