С.Р.О.Ч.Н.О. Составить процедуру, вичисляющую значение TRUE, если в первом из двух...

Question

С.Р.О.Ч.Н.О.

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

C.Р.О.Ч.Н.О.

Answer 1

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;<br> if W[i]<0 then t:=t+1;<br> end;
if b>t then writeln(a)
else begin
a:=FALSE;
writeln(a);
end;
end.