Будет выведено: sr=4.5
Объяснение:
Расписал подробно и с комментариями.
program a78; //Название программы
var i,s:integer; sr:real; //Объявление переменных
const a:array [1..6] of integer = (1,7,3,6,0,10); //объявление массива
begin //тело программы
s:=0; //присваиваем s к 0, своеобразный буфер
for i:=1 to 6 do //для значений i от 1 до 6 выполняй следующие действия:
s:=s+a[i]; //тело цикла, то что будет циклиться и выполняться
sr:=s/6; //тело цикла, то что будет циклиться и выполняться
writeln('sr=',sr); //вывод значения
end. //конец программы
const {убраны лишние описатели - чистая косметика}
a = 2.12;
b = 7.45;
h = 0.34;
var
x, f1, f2, y, s: real;
i, n: integer; {описание, необходимое для цикла}
begin
{ x := a; этот оператор не нужен }
s := 0;
n := Trunc((b - a) / h)+1; {стандартная формула числа повторений цикла }
for i := 1 to n do { Заголовок цикла }
begin {начало блока для выполнения в цикле }
x := a + (i - 1) * h; { перенесено из конца цикла }
f1 := 3 * ln(exp(1 / 5) * ln(sin(x) + sqr(x)));
f2 := ((2 * x + 1) / (x * x * x * x * x));
y := f1 / f2;
s := s + y;
end; {конец блока для выполнения в цикле }
Writeln('S=', s:10:5);
end.
Тестовое решение:
S=26390.53751