С.р.о.ч.н.о. составить процедуру, вичисляющую значение true, если в первом из двух заданных одномерных массивов количество отрицательных элементов окажется больше, чем во втором, и значение false в противном случае. использовать такую процедуру для массивов: r = (0; 0.005; -0.02; -87.5; 50) w = (45; 721.5; 8.63; -76.97; 3) c.р.о.ч.н.о.
Program Pr1;
uses crt;
const
R:array[1..5] of real =(0,0.005,-0.02,-87.5,50);
W:array[1..5] of real = (45,721.5,8.63,-76.97,3);
var a:boolean;
i,b,t:integer;
Begin
clrscr;
a:=TRUE;
b:=0;
t:=0;
for i:=1 to 5 do begin
if R[i]<0 then b:=b+1;
if W[i]<0 then t:=t+1;
end;
if b>t then writeln(a)
else begin
a:=FALSE;
writeln(a);
end;
end.