Вопрос по информатике:
Создать массив , рвводя значения элементов с клавиатуры. вычислить среднее арифметическое значение его элементов. например:если массив а[5]:15,7,8,23,11, то должны получить:12,8.Пояснение : найти сумму всех элементов, и поделить на количество элементов.
Составьте пж только программу , буду благодарен
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.03.2018 20:13
- Информатика
- remove_red_eye 12575
- thumb_up 49
Ответы и объяснения 2
n,i,s:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
a:=new integer[n];
for i:=0 to n-1 do readln(a[i]);
write ('Массив: ');
for i:=0 to n-1 do write(a[i],' ');
writeln;
for i:=0 to n-1 do s:=s+a[i];
writeln('Среднее арифметическое всех элементов массива равно: ',s/n)
end.
- 14.03.2018 09:35
- thumb_up 9
a:array[1..100] of Integer;
i,n,x,sum:Integer;
sa:Real;
begin
sum:=0;
for i:=1 to 100 do
a[i]:=0;
ReadLn(n);
for i:=1 to n do
begin
ReadLn(x);
a[i]:=x;
sum:=sum + a[i]
end;
sa:=sum / n;
WriteLn(sa);
end.
- 15.03.2018 03:55
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.