Определите количество чисел, не попадающих в интервал - Pascal ABC
Формулировка задачи:
В заданном массиве из 5 действительных чисел определите количество чисел, не попадающих в интервал от -2 до 2,5
Решение задачи: «Определите количество чисел, не попадающих в интервал»
textual
Листинг программы
k:=0; for i:=1 to 5 do if(a[i]<-2)or(a[i]>2.5) then k:=k+1