1. Информатика
  2. Найти произведение всех ненулевых

Найти произведение всех ненулевых элементов массива d. массив d(10). ограничение d с нижним индексом i не равно 0 vba

otlichnikcom otlichnikcom    1   21.05.2019 08:20    0

Ответы
Awzida Awzida  15.06.2020 08:47

Var d:array[1..10] of integer;

s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
       begin

       readln(d[i]);

       If d[i]<>0
        Then S:=S*d[i];

        end;
Writeln(S);
end. 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
observatorshkip06tpd observatorshkip06tpd  26.05.2019 14:50
Щелчком на кнопке открывается главно меню что надо вставить в пропуске?...
Заразный1 Заразный1  26.05.2019 14:50
Составить блок схему на тему: допустят ли меня к сессии ....
татьяна1039 татьяна1039  26.05.2019 14:50
Напишите програму ,которая формирует массив из n элементов (максимальное количество ровно 20), значения элементов массива - случайные числа от-10 до 25. программа должна:...
ladiaginairina ladiaginairina  26.05.2019 14:50
Если сумма побочной диагонали матрицы положительна, найти произведения элементов в каждой строке матрицы....
ghost133 ghost133  26.05.2019 14:50
Система команд исполнителя вычислитель состоит из двух команд: 1-прибавить 2 2-умножить на 3 а) какие числа получатся, если эти алгоритмы применить к исходному числу 2?...
5Kamilla505 5Kamilla505  26.09.2019 05:40
Алгоритмический язык бейсик паскаль алг нач цел s,k s: =100 нц для k от 0 до 10 s: =s-5 кц вывод s кон dim s as integer dim k as integer s = 100 for k = 0 to 10 s = s –...
аннаксения аннаксения  26.09.2019 05:40
Пользователь находился в каталоге расписание. сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз, потом ещё раз спустился на один уровень вниз....
sprinter99 sprinter99  21.04.2020 00:37
В некоторой стране автомобильный номер длиной 6 символов составляют из заглавных букв (задействовано 30 различных букв) и любых десятичных цифр в любом порядке. Каждый...
smokeech smokeech  21.04.2020 00:36
Сделать в Access и скинуть файлом...
Ринацой Ринацой  21.04.2020 00:36
Выполни алгоритм. Запиши результат выполнения алгоритма...

Популярные вопросы