Ответы
Ответ дал:
1
Ответ:
Объяснение:
1 var
2 i, kp, kn, s: Integer;
3 p: Real;
...
4 p:=1;
5 for i:=1 to n do begin
6 if a[i]>0 then begin Inc(kp); s:=s+a[i]; end;
7 if a[i]<0 then begin Inc(kn); p:=p*a[i]; end;
8 end;
9 WriteLn('kp=',kp,' sp=',s,' kn=',kn,' pn=',p:0:0);
10 end.
Вас заинтересует
3 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад