Напишите программу, которая для последовательности натуральных чисел находит среднее арифметическое. Программа получает на вход числа, кол-во чисел неизвестно, последовательность заканчивается числом 0 (0 в последовательность не входит)
var a: array[1..1000] of integer; sa: real; i: byte; begin writeln ('Введите числа: '); i:=0; sa:=0; repeat i:=i 1; read (a[i]); sa:=sa a[i]; until a[i]=0; sa:=sa/(i-1); writeln ('Среднее арифметическое чисел = ',sa); end. ---------------------------------------------- Пример: Введите числа: 2 4 2 4 2 4 0 Среднее арифметическое чисел = 3
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
