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.

Answer 2

Для определения количества отрицательных элементов в массиве B, необходимо просмотреть каждый элемент массива B и подсчитать количество отрицательных чисел.

В данном случае, значения элементов массива B задаются следующим образом: B[i] = A[i] + 49.

Значения элементов массива A задаются следующим образом: A[i] = 50 - i.

Таким образом, подставляя значения из первого цикла во второй, получаем: B[i] = (50 - i) + 49 = 99 - i.

Теперь просмотрим каждый элемент массива B и подсчитаем количество отрицательных чисел:

Когда i = 1, B[i] = 99 - 1 = 98 (неотрицательное число). Когда i = 2, B[i] = 99 - 2 = 97 (неотрицательное число). Когда i = 3, B[i] = 99 - 3 = 96 (неотрицательное число). ... Когда i = 51, B[i] = 99 - 51 = 48 (неотрицательное число). Когда i = 52, B[i] = 99 - 52 = 47 (отрицательное число). Когда i = 53, B[i] = 99 - 53 = 46 (отрицательное число). ... Когда i = 99, B[i] = 99 - 99 = 0 (отрицательное число). Когда i = 100, B[i] = 99 - 100 = -1 (отрицательное число).

Таким образом, в массиве B будет 49 отрицательных элементов.