Паскаль.
В одновременном массиве найти произведение ненулевых элементов.
В одновременном массиве найти произведение ненулевых элементов.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var i, n, p:integer; a:array[1..10] of integer;
begin
p:=1;
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
writeln('Введите число');
readln(a[i]);
If a[i]<>0 then
p:=p*a[i];
end;
writeln('p=',p);
end.