ТутРешу.Ру

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

Задание:

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

Решение:

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.




Знаете другой ответ?

Отправить свой ответ