Question

Значения элементов двух массивов А и В с индексами от 1 до 100 задаются с помощью следующего фрагмента программы:

for i:=1 tо 100 do
A[i] := 50 – i;
for i:=1 tо 100 do
B[i] := A[i] + 49;

Сколько отрицательных элементов будет в массиве В?

Answer 1

Ответ:  1    

var

 a,b:array[1..100] of integer;

 i, z:integer;

begin  

 for i:=1 to 100 do

 A[i] := 50 - i;

 z:=0;

 for i:=1 to 100 do begin

   B[i] := A[i] + 49;

   if b[i]<0 then inc(z);

 end;  

 print('Отрицательных=',z)

end.