Вход
Быстрая регистрация
Если вы у нас впервые: О проекте FAQ
0

Как найти среднее арифметическое 5 чисел?

Niki M [37.8K] 4 недели назад

Найти среднее арифметическое 5 чисел( с помощью цикла)

uses crt;

var a,i:integer;s:real;

begin

writeln('число вводите');

for i:=1 to 5 do

begin

readln(a);

s:=s+a;

end;

writeln('среднее арифметическое = ',s/5);

end.

Знаете ответ?
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее..
регистрация
OpenID