ответ: 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)Пример работы:
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.