С. Р. О. Ч. Н. О. Составить процедуру, вичисляющую значение TRUE, если в первом из двух заданных одномерных массивов количество отрицательных элементов окажется больше, чем во втором, и значение FALSE в противном случае. Использовать такую процедуру для массивов: R = (0; 0.005; - 0.02; - 87.5; 50) W = (45; 721.5; 8.63; - 76.97; 3) C. Р. О. Ч. Н. О.

Заведем переменную типа Boolean для того, чтобы записать в нее результат сравнения количества отрицательных элементов в массиве.

var bool:boolean;

R, W: array [1 ... 5] of real;

R_otr, W_ortr : integer;

R и W - это две переменные для хранения массивов.

После того, как их реализуют и заполнят необходимыми элементами, нам нужно пройти по каждому элементу и посчитать те, которые меньше нуля.

Результат запишем в переменные R_otr и W_ortr:

for I:integer : = 1 to 5 do

begin

if R[i]<0 then

R_otr : = R_otr + 1;

end;

for I:integer : = 1 to 5 do

begin

if W[i]<0 then

W_otr : = W_otr + 1;

end;

if R_otr > W_otr then

bool : = True

else

bool : = False;

end.