ЯЗЫКИ ПИТОН И С++ Обратное число
В этой задаче нужно ответить на 1≤t≤105 за Каждый за состоит из двух целых чисел 2≤p≤109 и 0
Входные данные
В первой строке дано целое число t — количество за
В следующих t строках даны по два числа pi и ai, i=1,…,t.

Выходные данные
Выведите t целых чисел (каждое число в отдельной строке) — ответы на за

Примеры
Ввод
4
5 1
5 2
5 3
5 4
Вывод
1
3
2
4

1. 
var A: array [1..10] of integer;
i, sum, k: integer;
begin
for i:=1 to 5 do
read(A[i]);
sum:=0;
k:=0;
for i:=1 to N div 2 do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое первой части=', sum/k);
sum:=0;
k:=0;
for i:=5 to 10 do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое второй части=', sum/k);
end.

2. const: N={количество элементов массива}; 
var A: array [1..N] of integer;
i, sum, k: integer;
begin
for i:=1 to N do
read(A[i]);
sum:=0;
k:=0;
for i:=1 to (N div 2) do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое первой части=', sum/k);
sum:=0;
k:=0;
for i:=(N div 2) to N do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое второй части=', sum/k);
end.
 

program raf105;

uses  

 graphABC;

var  

 a: array[1..20,1..2] of integer;

 x,y,i:integer;

begin

 ClearWindow(clBlack);

 randomize;

 repeat

   if i = 20 then

    i:= 0;

   i:=i+1;

   x:=random(windowwidth);

   y:=random(windowheight);

   if a[i,1] = 0 then

     begin

       a[i,1]:= x;

       a[i,2]:= y;

     end

   else

     begin

       setbrushcolor(clBlack);

       circle(a[i,1],a[i,2],4);

       a[i,1]:= x;

       a[i,2]:= y;

     end;

   sleep(200);

   setbrushcolor(clWhite);

   circle(x,y,4);

 until false;

end.

PascalABC 3.4.2