Program n1;
const n=10;
var
a : array[1..n] of integer;
a1: array[1..n] of integer;
s,s1,i: integer;
begin
s := 0;
s1:=0;
for i := 1 to n do
begin
write('введите рост ', i,' ученика: ' ); readln(a[i]);
s := s + a[i];
write('введите вес ',i,' ученика: ');
readln(a1[i]);
s1:=s1+a1[i];
end;
writeln('средний рост: ',s/n);
writeln('средний вес: ',s1/n);
end.

//прога на Pascal`e
type
  myrec = record
  rost : byte;
  ves : byte;
  end;
var
  mas : array of myrec;
  n, i : byte;
  sumves, sumrost : longint;
begin
write ('Введите кол-во учеников: ');
readln (n);
setLength (mas, n);
  for i:=0 to n-1 do
  begin
  write ('Введите вес ', i+1, '-го ученика: ');
  readln (mas[i].ves);
  inc (sumves, mas[i].ves);
  write ('Введите рост ', i+1, '-го ученика: ');
  readln (mas[i].rost);
  inc (sumrost, mas[i].rost);
  end;

write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n)
end.