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

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