Написать программу, которая вычисляет среднее арифметическое последовательности дробных чисел, вводимых с клавиатуры. после того, как будет введено последнее число, программа должна вывести разность между минимальным и максимальным числом последовательности. количество чисел должно задаваться во время работы программы. паскаль
program raf105;
var
n,i: integer;
a,sum,sari,min,max: real;
begin
write('Введите количество чисел: ');
readln(n);
writeln('Воодите числа по очереди');
min:= 10000;
max:= -10000;
for i:=1 to n do
begin
readln(a);
sum:= sum+a;
if a > max
then max:= a;
if a < min
then min:= a;
end;
sari:= sum/n;
writeln('Среднее арифметическое: ',sari);
writeln('Разность максимального и минимального числа: ',max-min);
end.
PascalABC 3.4.2