Дан одномерный массив из N вещественных элементов.составить программу вычисления их среднего арифметического,,,,ООООчень нужно на завтра,помогите пожалуйста!!!!
Дан одномерный массив из N вещественных элементов.составить программу вычисления их среднего арифметического,,,,ООООчень нужно на завтра,помогите пожалуйста!!!!
Гость
Ответ(ы) на вопрос:
Гостьprogram 1;
uses crt;
cоnst n=10;
var arr:array[1..N] of real;
sum:real;
i:integer;
Begin clrscr;
writeln('Please entel array');
for i:=1 to N do
read(arr);
sum:=0;
for i:=1 to N do
sum:=sum+arr;
writeln();
writeln("result=",sum/N);
readln;
End.
Гостьconst N={задаём}; var a:array[1..N] of real; sr,summ:real; i:integer; begin for i:=1 to N do read(a[i]); for i:=1 to N do summ:=summ+a[i]; sr:=summ/N; write(sr); end.
Не нашли ответ?
Похожие вопросы