Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел. количество чисел должно задаваться во время работы программы. (цикл для)(паскаль )
Program Nooobodyyy; uses crt; var i,how:integer; ch,appr,sum:real; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln(); writeln(); writeln('Программа запрашивает N дробных чисел и находит их среднее арифметическое'); sum:=0; write('Введите количество чисел: '); readln(how); for i:=1 to how do begin write('Введите ',i,'-e число: '); read(ch); sum:=sum+ch; end; appr:=sum/how; writeln('Cреднее арифметическое равно ',appr:8:2); end.
Var i, count : integer; summ, temp : real; begin summ := 0; readln(count); for i := 1 to count do begin readln(temp); summ := summ + temp; end; writeln(summ / count); end.
uses crt;
var
i,how:integer;
ch,appr,sum:real;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln(); writeln();
writeln('Программа запрашивает N дробных чисел и находит их среднее арифметическое');
sum:=0;
write('Введите количество чисел: '); readln(how);
for i:=1 to how do
begin
write('Введите ',i,'-e число: '); read(ch);
sum:=sum+ch;
end;
appr:=sum/how;
writeln('Cреднее арифметическое равно ',appr:8:2);
end.
i, count : integer;
summ, temp : real;
begin
summ := 0;
readln(count);
for i := 1 to count do
begin
readln(temp);
summ := summ + temp;
end;
writeln(summ / count);
end.