Найти произведение положительных элементов массива и Количество ненулевых элементов массива. Пожалуйста помогите.
Ответы
Ответ дал:
0
Ответ:
Звони +380933132270
Объяснение:
var
a:array[1..100] of integer;
i,n,col,proiz:integer;
begin
read(n);
proiz:=0;
col:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>0 then
proiz:=proiz*a[i];
for i:=1 to n do
if a[i]|<>0 then
col:=col+1;
for i:=1 to n do
write(proiz,' ',col);
end.
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
8 лет назад