Ребят, помогите пожалуйста с Паскалем, очень нужно. 1. В массиве Т [1… 25] вы записали…

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