составить программку в паскалес клавиатуы вводятся 5 чисел. после ввода каждого числа выводим

Составить программу в паскале
с клавиатуы вводятся 5 чисел. после ввода каждого числа выводим среднее арифметическое введенной части
P.S. 5 чисел необходимо выразить через одну переменную

Задать свой вопрос
1 ответ
Var pr,sum,n:real; i:integer;
Begin
write('Вводите числа: ');  
for i:=1 to 5 do begin
                   readln(n);
sum:=sum+n;
end;
pr:=sum/5;
writeln('среднее арифметическое одинаково: ',pr);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт