Ввести 7 чисел, и посчитать количество больше нуля и сумму чисел…

Question

Ввести 7 чисел, и посчитать количество больше нуля и сумму чисел меньше или равных 0.

Answer 1

80

bot71

10 сентября 2022

uses crt; var a: array[1… 7] of integer; s,n,i: integer; beginwriteln ('Введите 7 чисел: '); for i: =1 to 7 do begin readln (a[i]); end; n: =0; s: =0; for i: =1 to 7 do begin if a[i]>0 then n: =n+1 else s: =s+a[i]; end; writeln ('Количество положительных чисел: ',n); writeln ('Сумма неположительных чисел: ',s); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: