С клавиатуры вводится 10 чисел, определить кол-во чисел попадающих в интервал от -15…

Question

81

С клавиатуры вводится 10 чисел, определить кол-во чисел попадающих в интервал от -15 до 30. В турбопаскале

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

taygedar · Accepted Answer

62

taygedar

19 февраля 2024

Var a: array [1… 10] of integer; i,k: integer; begin k: =0; for i: =1 to 10 do begin write (i,'-oe chislo: '); readln (a[i]); if (a[i]>-15) and (a[i]<30) then inc (k); end; writeln ('Kol-vo: ',k); end.

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

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

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

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