найти среднее арифметическое четных чисел из промежутка от 1 до 10

Program vtkbox479; Название программы

var i, s:integer; Объявление переменных

begin Начало программы

for i:=1 to 10 do Цикл от 1 до 10

s:=s+i; Сумме присваиваем значение сумма + число i

writeln (s/i) ; Выводим сумма деленная на число i

end. Конец программы

П. с. расписал, с тебя лучший ответ.

Var s, i: integer;

Begin

s : = 0;

For i : = 1 To 10 Do

If i Mod 2 = 0 Then s : = s + i;

Writeln ('Сумма четных чисел: ', s) ;

Writeln ('Ср. арифметическое: ', s/5) ;

End.

Решение:

for i:=1 To 10 Do {цикл}

Определяем четные числа командой i Mod 2 = 0.

Если числа четные, то они складываются и делятся на 5, так как в промежутке от 1 до 10 всего пять четных чисел.