Составить программу в паскалес клавиатуы вводятся 5 чисел. после ввода каждого числа выводим среднее арифметическое введенной частиP.S. пять чисел нужно выразить через одну переменную
Составить программу в паскале
с клавиатуы вводятся 5 чисел. после ввода каждого числа выводим среднее арифметическое введенной части
P.S. пять чисел нужно выразить через одну переменную
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы