• Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) подсчет суммы и среднего арифметического введённых положительных чисел и определение максимального (наибольшего) из введённых чисел.Используйте оператор repeat.

Ответы 2

  • спасибо))))))))
  • var  a, i, max: integer;  sum: real;begin  max := 0;  sum := 0;  i := 0;  repeat    write('Введите число: ');    readln(a);    if a > 0    then begin      sum := sum + a;      i := i + 1;    end;    if max < a      then max := a;  until a = 0;  writeln(#10,'Сумма = ', sum, #10, 'Среднее арифметическое = ', sum / i, #10, 'Наибольшее число - ', max);end.
    answer img
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years