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

0
0

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

0
0

Ответ: 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.

Показано 1 результата