109. Написать программу, которая вводит с

клавиатуры 5 дробных чисел и вычисляет их

среднее арифметическое.

Program m11;

var

i,n:integer;

y,x,a:real;

begin

writeln('Вычисление среднего арифметического последовательности дробынх чисел.');

writeln('После ввода каждого числа нажимайте Enter');

for i:=1 to 5 do begin

readln(a);

y:=y+a;

end;

y:=y/5;

writeln('Среднее арифметическое введенной последовательности:',' ',y:1:2);

readln;

end.

110. Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел.

Program m12;

var

i,n:integer;

y,x,a:real;

begin

writeln('Вычисление среднего арифметического последовательности дробынх чисел.');

writeln('Введите количество чисел последовательности');

readln(n);

writeln('Вводите последовательности. После ввода каждого числа нажимайте Enter');

for i:=1 to n do begin

readln(a);

y:=y+a;

end;

y:=y/n;

writeln('Среднее арифметическое введенной последовательности:',' ',y:1:2);

readln;

end.

111. Написать программу, которая вводит с клавиатуры последовательности из пяти дробных чисел и после ввода каждого числа выводит среднее арифметическое полученной части последовательности.

Program m13;

const

n=5;

var

i:integer;

y,x,a,k:real;

begin

writeln('Обработка последовательности последовальных чисел.');

writeln('Введите количество чисел последовательности');

writeln('После ввода каждого числа нажимайте Enter');

Вход

writeln('Вычисление среднего арифметического последовательности дробынх чисел.');

writeln('После ввода каждого числа нажимайте Enter');

for i:=1 to 5 do

readln(a);

y:=y+a;

y:=y/5;

writeln('Среднее арифметическое введенной последовательности:',' ',y:1:2);

Выход

Вход

writeln('Вычисление среднего арифметического последовательности дробынх чисел.');

writeln('Введите количество чисел последовательности'); readln(n);

writeln('Вводите последовательности. После ввода каждого числа нажимайте Enter');

for i:=1 to n do

readln(a);

Выход

y:=y+a;

y:=y/5;

writeln('Среднее арифметическое введенной последовательности:',' ',y:1:2);

Вход

writeln('Обработка последовательности последовальных чисел.');

writeln('Введите количество чисел последовательности');

writeln('После ввода каждого числа нажимайте Enter');writeln('Вводите последовательности. После ввода каждого числа нажимайте Enter');

for i:=1 to n do

readln(a);

y:=y+a; k:=y/i;

writeln('Введено чисел', i:2,'.',' ','Сумма:',y:1:2,'.',' ','Сред.арифметическое:',' ',k:2:2,'.');

for i:=1 to n do begin

readln(a);

y:=y+a;

k:=y/i;

writeln('Введено чисел',' ',i:2,'.',' ','Сумма:',y:1:2,'.',' ','Сред.арифметическое:',' ',k:2:2,'.');

end;

readln;

end.