Как составить программу, которая подсчитывает сумму отрицательных чисел (s) и произведение положительных

136

239

Посмотреть ответы 2

Ответы на вопрос:

kristinka200000005

Информатика

4,6(39 оценок)

Const n = 5; var a, s1, s2: integer; i, q1, q2: byte; begin s1 : = 0; q1 : = 0; s2 : = 0; q2 : = 0; writeln('введите ', n, ' чисел: '); for i : = 1 to n do begin read(a); if a < 0 then begin s1 : = s1 + a; inc(q1) end; if a > 0 then begin s2 : = s2 + a; inc(q2) end; end; writeln; if q1 > 0 then begin writeln('сумма отрицательных чисел: ', s1); writeln('количество отрицательных: ', q1) end else writeln('отрицательных нет'); if q2 > 0 then begin writeln('сумма положительных чисел: ', s2); writeln('количество положительных: ', q2) end else writeln('положительных нет') end.