В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Cesar123213
Cesar123213
18.12.2021 23:26 •  Информатика

Создать массив , рвводя значения элементов с клавиатуры. вычислить среднее арифметическое значение его элементов. например: если массив а[5]: 15,7,8,23,11, то должны получить: 12,8.пояснение : найти сумму всех элементов, и поделить на количество элементов. составьте только программу , буду

Показать ответ
Ответ:
roxolanavarLana
roxolanavarLana
08.10.2020 14:27
Var a:array of integer;
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.
0,0(0 оценок)
Ответ:
ujiuyh
ujiuyh
08.10.2020 14:27
Var
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота