Информатика, опубликовано 2018-08-22 18:20:32 by Гость
Дан одномерный массив из 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на