с информатикой. Неправильные ответы не писать!

Var  massa: array [1..30] of real;
  i, n: integer;
  sum: real;

begin
  Write('Сколько учеников в подгруппе? ');
  Readln(n);
  Writeln('Введите вес учеников');
  for i := 1 to n do   begin
    readln(massa[i]);
    sum := sum + massa[i]
  end;
    Writeln('Средий вес ученика подгруппы: ', sum / n);
end.

Если известно что их 26, то можно написать так

var  massa: array [1..26] of real;
  i: integer;
  sum: real;

begin
  Writeln('Введите вес учеников');
  for i := 1 to 26 do   begin
    readln(massa[i]);
    sum := sum + massa[i]
  end;
    Writeln('Средий вес ученика подгруппы: ', sum / 26);
end.

ответ: 0 3 6 6 8 10

Объяснение:

Дан цикл для i от 0 до 5 (от индекса первого элемента массива до индекса последнего), в котором следующее:

Если i>2, то присваиваем элементу массива под индексом i значение i*2.Иначе (т. е. если i≤2), присваиваем элементу массива под индексом i значение i*3.

В общем, можно сказать так: данный фрагмент программы заполняет массив A с индексами от 0 до 5 по следующему правилу: если индекс больше 2, то записывается индекс умноженный на 2, иначе — индекс умноженный на 3.

В таком случае:

A[0] = 0*3 = 0   (т. к. 0<2)A[1]  =  1*3 = 3   (т. к. 1<2)A[2] = 2*3 = 6   (т. к. 2=2)A[3] = 3*2 = 6   (т. к. 3>2)A[4] = 4*2 = 8   (т. к. 4>2)A[5] = 5*2 = 10 (т. к. 5>2)

Пример работы: