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

Ответ: 1 элемент будет иметь отрицательное значение.

Код:

var

A, B: array[0..99] of integer;

i: integer;

otr: integer;

begin

 for i := 0 to 99 do

   A[i] := 50 — (i + 1);

 for i := 0 to 99 do

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

 otr := 0;

 for i := 0 to 99 do

   writeln(B[i]);

   if B[i] < 0 then

     Inc(otr);

 writeln(otr);

end.