Впаскале. написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности действительных чисел. количество чисел должно задаваться во время работы программы. ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделено полу жирным шрифтом). вычисления среднего арифметического последовательности действительных чисел. найдите количество чисел последовательности -> 15. введите последовательность. после ввода каждого числа нажмите enter. -> 5.4 -> 7.8 -> 3.0 -> 1.5 -> 2.3 среднее арифметическое введенной последовательности: 4.00 для завершения работы программы нажмите enter.

Uses   crt; var   i,n: integer;   a,s: real; begin   writeln('вычисление среднего арифметического');   writeln('последовательности действительных чисел');   write('введите количество чисел последовательности -> ');   readln(n);   writeln('введите последовательность. после ввода каждого числа нажмите enter');   s: =0;   for i: =1 to n do   begin       read(a);       s: =s+a   end;   writeln('среднее арифметическое введенной последовательности: ',s/n);   write('для завершения работы программы нажмите enter');   readkey end. тестовое решение: вычисление среднего арифметического последовательности действительных чисел введите количество чисел последовательности -> 5 введите последовательность. после ввода каждого числа нажмите enter 5.4 7.8 3.0 1.5 2.3 среднее арифметическое введенной последовательности: 4 для завершения работы программы нажмите enter для версии pascal.abc.net: var   i,n: integer;   a,s: real; begin   writeln('вычисление среднего арифметического');   writeln('последовательности действительных чисел');   write('введите количество чисел последовательности -> ');   readln(n);   writeln('введите последовательность. после ввода каждого числа нажмите enter');   s: =0;   for i: =1 to n do   begin       read(a);       s: =s+a   end;   writeln('среднее арифметическое введенной последовательности: ',s/n) end.