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

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

Оцени ответ
Не нашел ответ?

Если ответа нет или он оказался неправильным по предмету Информатика, то попробуй воспользоваться поиском на сайте или задать вопрос самостоятельно.

Найти другие ответы

Загрузить картинку
Предметы