Задан массив А(1:20). Найти произведение всех его ненулевых элементов. ** паскале через...

Question

Задан массив А(1:20). Найти произведение всех его ненулевых элементов. На паскале через массивы!)

Answer 1

Var
  i,p:integer;
  a:array[1..20]of integer;
begin
writeln('Массив: ');
p:=1;
for i:=1 to 20 do
  begin
  a[i]:=random(10);
  write(a[i],' ');
  if a[i]<>0 then p:=p*a[i];
  end;
writeln;
writeln('Произведение ненулевых: ',p);
end.

Comments

я сначала не ту задачу решил. Исправь