Program n1;
const n=10;
var a: array [1..n] of integer;
i,p: integer;
begin
randomize;
p:=1;
for i:=1 to n do a[i]:=random(10);
for i:=1 to n do if a[i]<>0 then p:=p*a[i];
writeln(p);
end.
Объяснение:
во вложениях......
• – это ^. у меня он не ставится, у себя ставьте!!
+ – это v.
При условии если даны переменные a, b
а)
var t : integer := a;
a := b;
b:=t;
б) (a, b) := (b, a);