Катя, Петя, Лена и Вова занимаются стрельбой из лука. В одном из соревнований Катя набрала 7 очков, - id84558120220221 от LightDarkness 21.02.2022 18:39

Question

Другие предметы: Катя, Петя, Лена и Вова занимаются стрельбой из лука. В одном из соревнований Катя набрала 7 очков, Петя на 5 очков больше, чем Катя. Вова набрал столько очков, сколько Катя и

LightDarkness · Accepted Answer

USES Crt;
VAR
  X: INTEGER; S, K, P: INTEGER;    I: BYTE;
Begin
   P:=1; S:=0; K:=0;
   FOR I:=1 TO 10 DO Begin
       WriteLn(‘Введите ‘,I,’ -е значение’);       ReadLn(x);
       IF X>0 Then P:=P*X;    { произведение положительных }
       IF X<0 Then Begin
                               S:=S+X; { сумма отрицательных }
                               K:=K+1; { количество отрицательных }
                             End;
   End;
   WriteLn(‘ Произведение положительных значений = ‘,p);
   WriteLn(‘ Сумма отрицательных значений = ‘,s);
   WriteLn(‘ Количество отрицательных значений = ‘,k);
END.

MOGZ ответил