Информатика, опубликовано 2018-08-22 19:27:58 by Гость
Дан одномерный массив {Ai}, состоящий из n элементов. Вычислить среднее арифметическое значение этих элементов
Ответ оставил Гость
Uses crt;
Var m:array[1..1000] of integer;
I,sr,n:integer;
Begin
Clrscr;
Writeln(Введите размер массива);
Readln(n);
For i:=1 to n do
Begin
m[i]:=random(30)+1;
Write(m[i], );
Sr:=sr+m[i];
End;
Writeln;
Writeln( Сред. Арф. = ,sr div n);
Readkey;
End.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на