Предмет: Информатика,
автор: Elino4ka96
Дан одномерный массив из N вещественных элементов.составить программу вычисления их среднего арифметического,,,,ООООчень нужно на завтра,помогите пожалуйста!!!!
Ответы
Автор ответа:
0
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.
Автор ответа:
0
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.
Интересные вопросы
Предмет: Химия,
автор: Miа16
Предмет: Английский язык,
автор: Аноним
Предмет: Алгебра,
автор: kristina200733
Предмет: Литература,
автор: VASILISKA230810
Предмет: Обществознание,
автор: МерШер