Решить задачу циклом For с использованием массива:
Ввести данные о весе и росте N учащихся 9 класса.
Определить средние вес и рост учащихся в этом классе.
Заранее спасибо за ответ :з

Program n1;const n=10;vara : array[1..n] of integer;a1: array[1..n] of integer;s,s1,i: integer;begins := 0;s1:=0;for i := 1 to n dobeginwrite('введите рост ', 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`etype  myrec = record  rost : byte;  ves : byte;  end;var  mas : array of myrec;  n, i : byte;  sumves, sumrost : longint;beginwrite ('Введите кол-во учеников: ');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.