Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех...

Question

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

Answer 1

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.

---

Comments

спасибо))))))))