РЕБЯТ!!! На языке pascal нужно вычислить среднее арифметическое чисел ОТ 11 ДО 20 через...

Question

РЕБЯТ!!! На языке pascal нужно вычислить среднее арифметическое чисел ОТ 11 ДО 20 через repeat until. Бог в помощь ребят))

Comments

Если мало баллов могу создать новый с чуть более большим кол-во баллов

---

вопрос*

---

как ставить лучший ответ?

Answer 1

Var i,s,k:integer;
begin
i:=11;
s:=0;
k:=0;
repeat
s:=s+i;
i:=i+1;
k:=k+1;
until i>20;
write ('Cреднее арифметическое чисел ОТ 11 ДО 20 равно: ', s/k)
end.