Question

Значения двух массивов A[1..10] и B[1..10] задаются с помощью следующего фрагмента программы:for i:=1 to 10 doA[i]:=10-i;for i:=1 to 10 doB[i]:=A[5] – A[i]Сколько элементов массива будут иметь отрицательные значения?1) 0 2) 5 3) 10 4) 4

Answer 1

var A:array[1..10] of integer;
var B:array[1..10] of integer;
var i,j:integer;
begin
  for i:=1 to 10 do
  A[i]:=10-i;
  for i:=1 to 10 do
  B[i]:=A[5] - A[i];
  for i:=1 to 10 do begin
  writeln(A[i]);
  writeln(B[i]);
  end;
  readln;
end.

 

Ответ: 4

Answer 2

Для ответа на ваш вопрос, давайте разберемся с фрагментом программы и определим значения элементов массива B.

Первый цикл `for i:=1 to 10 do A[i]:=10-i;` заполняет массив A значениями от 9 до 0. То есть, элемент A[1] будет равен 9, элемент A[2] будет равен 8 и так далее, пока элемент A[10] не станет равным 0.

Второй цикл `for i:=1 to 10 do B[i]:=A[5] - A[i];` заполняет массив B разностью между элементом A[5] и каждым элементом A[i].

Таким образом, B[1] будет равен A[5] - A[1], B[2] будет равен A[5] - A[2] и так далее.

Изначально A[5] равно 5 (так как A[5] = 10 - 5), а элементы A[i] меняются от 9 до 0. Значит, выражение A[5] - A[i] будет отрицательным только в том случае, если A[i] > A[5].

Поскольку A[5] = 5, то все элементы A[i] с индексами i > 5 будут иметь отрицательные значения в массиве B.

Таким образом, 4 элемента массива B будут иметь отрицательные значения. Ответ: 4.