Блог для маленьких школьников и их родителей
ШколаЛа

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

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

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

Ответов к вопросу: 1
  • poberezecalona6
    28.10.2024 | 22:40

    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.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.