Из 6 введенных на клавиатуре чисел найти сумму и количество…

Question

Из 6 введенных на клавиатуре чисел найти сумму и количество отрицательных.

Answer 1

44

silicat

20 февраля 2023

Program z1; vari,s,r: integer; a: array[1… 6] of integer; beginwriteln ('Введите числа'); for i: =1 to 6 dobeginreadln (a[i]); If a[i]<0 thenr: =r+1; s: =s+a[i]; end; writeln ('Сумма: ',s); writeln ('Кол-во отрицательных чисел: ',r); end.

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

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

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

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

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