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.
