Сформировать массив из 10 произвольных чисел. Определить сумму положительных, произведение отрицательных и количество нулевых элементов этого массива.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
m : array[1..10] of Integer;
i,s,p,n : Integer;
Begin
s:=0; p:=1; n:=0;
For i:=1 to 10 do
Begin
m[i]:=-100+Random(201);
Inc(n,Ord(m[i]=0));
If m[i]>0 then s:=s+m[i];
If m[i]<0 then p:=p*m[i];
end;
Writeln(s,' ',p,' ',n);
end.