Вопрос по Quote (wkornilow)
все отрицательные члены, которые не относятся к отрезку [1;2]
А как может быть отрицательный член, который ОТНОСИТСЯ к этому отрезку? Может быть имеется ввиду "НЕГАТИВНЫЙ", т.е. не относящийся? Если так, то решение примерное приведу ниже. Если точно нужны отрицательные, т.е. < 0, то нужно подумать над условием, так как налицо противоречие. Итак:
Итак, мы имеем массив из N элементов. Т.е.
Code
a: Array[1..N] of Real;
Инициализируем его Random-ными значениями. Действуем.
Пробегаем по всем элементам циклом:
И заменяем элементы
Code
If (a[i] > 2) and (a[i] < 1) then
Begin
a[i] := 1;
Inc(Count);
End;
Вроде так.. При этом заменяются на 1 все элементы, которые не входят в отрезок [1; 2] и считаются каждый из невходящих в переменной Count целочисленного типа. Количество входящих потом узнается как N - Count. Ну в общем это и вся задача
