1.

var

  T, C : array [1..25] of real;

  sumT, sumC : real;

  i : integer;

begin

  for i := 1 to 25 do read (T[i]);

  for i := 1 to 25 do read (C[i]);

  sumT := 0; sumC := 0;

  for i := 1 to 25 do

  begin

    sumT := sumT + T[i];

    sumC := sumC + C[i];

  end;

  writeln ('Средний вес = ', sumT / 25);

  writeln ('Средний рост = ', sumC / 25);

end.

2. 

const

  maxn = 1000;

var

  a : array [1..maxn] of integer;

  n, i : integer;

begin

  read (n); //Если n дано

//Если n не дано, нужно читать до конца строки

 //while not eoln do begin n := n + 1; read (a[n])} end;

  for i := 1 to n do read (a[i]); //Если n дано

  for i := n downto 1 do

    if i mod 2 = 1 then write (a[i], ' ');

end.

Тесты: а) 8 5 1 б) 9 8 4 6 1