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

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

Оцени ответ
Проблемы с решением?

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

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

InternetUrok

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

Загрузить картинку