C клавиатуры вводятся 10 целых чисел

Question

C клавиатуры вводятся 10 целых чисел. Определить, каких больше: положительный илиотрицательных.

Answer 1

43

daniilexkam

12 апреля 2023

const N=10; var i,otr,pol,K: integer; BEGINotr: =0; //отриацательные числаpol: =0; //положительные числаfor i: =1 to N dobegin Write ('Введите число #', i, ': '); Read (K); if (K < 0) then inc (otr) else if (K <> 0) then inc (pol); end; if (otr > pol) then Writeln ('Отрицательных больше') else writeln ('Положительных больше'); end.

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

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

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

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

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