Составить программу, позволяющую в одномерном массиве, состоящем из N вещественных...

Question

Составить программу, позволяющую в одномерном массиве, состоящем из N вещественных элементов, вычислить количество элементов массива, не принадлежащих интервалу (a, b);

Answer 1

var i,m,n: integer; a,b:real; c:array[1..100] of real; begin write('Введите N: '); readln(n); writeln; writeln('Введите массив: '); for i:=1 to n do read(c[i]); writeln; write('Введите a и b: '); readln(a,b); writeln; m:=0; for i:=1 to n do if ((c[i]<=a)or(c[i]>=b)) then m:=m+1; writeln(m,' элементов массива не принадлежат интервалу (',a:0:2,', ',b:0:2,')'); end.

Comments

почему or , а не and

---

Предположим, что а=2, b=4. Чтобы число не входило в этот интервал, оно должно быть либо меньшеравно 2, либо большеравно 4. Оба эти условия сразу быть верны не могут, поэтому нужно использовать логический оператор or (или)

---

Спасибо!!!