Написать программу нахождения арифмитического значений пяти чисел если оно больше шести то увеличить на три
Написать программу нахождения арифмитического значений пяти чисел если оно больше шести то увеличить на три
Ответ(ы) на вопрос:
Гость
Var
i:integer; s,a:real;
Begin
Write('Вводите числа через Enter ');
for i:= 1 to 5 do
Begin
Read(a);
s:=s+a;
End;
Writeln;
write('Среднее арифметическое этих чисел ');
if s/5>6 then write('больше 6 и равняется ',s/5,', поэтому увеличиваю на 3 - ',s/5+3) else write('не больше 6, поэтому оставляю как есть ',s/5);
End.
Не нашли ответ?
Похожие вопросы