Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Написать программу нахождения арифмитического значений пяти чисел если оно больше шести то увеличить на три

Ответ оставил Гость

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.