Найти среднее арифметическое четных чисел из промежутка от 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 всего пять четных чисел.