ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТАДаны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел... ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
Гость
Ответ(ы) на вопрос:
Гостьvar
n,i:integer;
s,a:real;
begin
writeln('Vvedite n:');
readln(n);
writeln('Vvedite chisla:');
s:=0;
for i:=1 to n do
begin
readln(a);
s:=s+a;
end;
writeln('Srednee arifmeticheskoe =',s/n);
readln();
end.
Не нашли ответ?
Похожие вопросы