Var 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
