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

 

Составить процедуру, вичисляющую значение 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;constR: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;Beginclrscr;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.