Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
HappyMen11
08.03.2022 06:06 •
Информатика
Дана последовательность из n целых чисел. найти среднее арифметическое этой последовательности.
Показать ответ
Ответ:
yliana23
02.07.2020 17:53
Program D1KPxx16;
uses crt;
var
a,sr:real;
i,n:integer;
begin
read(n);
for i:=1 to n do
begin
read(a);
sr:=sr+a;
end;
sr:=sr/n;
writeln(sr);
end.
все числа вводятся вручную, первое число-кол-во чисел, далее эти числа.
0,0
(0 оценок)
Популярные вопросы: Информатика
евгения2066
31.01.2020 18:25
Скажите ключ активации от bandicam...
aitxam
10.06.2022 17:02
Какие операции можно совершать с файлами...
Alina21112001
10.06.2022 17:02
Раздели слова на слоги.обрати внимание на то,что нужно делить на слоги по звукам,а не по бквам. подъезд,,колется,детский,моется,городской,рассчет,вьется....
RinaZum
09.12.2022 23:27
Трехзначное десятичное число оканчивается цифрой 3.если эту цифру переместить на первое слева место в числе,то есть с нее будет начинаться запись нового числа,то это новое число...
pushkina82
01.06.2022 09:51
Массив К состоит из М элементов. Разработать схему алгоритма и программу, в результате выполнения которой каждый элемент с нечетным номером будет увеличен в 2 раза, а каждый элемент...
мадина488
03.02.2021 01:46
1)Замените формулу, используя один вызов функции СУММ: =A3+A4+A5+B3+B4+B52)Замените формулу, используя два вызова функции СУММ: =A3+A4+A5+B7+B8+B9+C7+C8+C9...
rusikov972
12.04.2021 10:16
Выводстандартный вывод Тима любит футболки. В городе есть очень крутой магазин футболок, который продает футболки n цветов пронумерованных от 1 до n, включительно. В течении k...
MariaWoLF2006
25.11.2021 01:14
Нужен полный анализ программы #include #include using namespace std; int main() { int ar[50]; cout size; cout first_even; --i) { ar[i] = ar[i - 1]; } ar[first_even+1] = (first_even?...
хзхзхзхззз
19.01.2023 21:06
Вопрос № 7 Что будет выведено на экран после выполнения фрагмента программы: begin a:=3; if a 3 then a:=5 else a:=1; writeln (a); end. 1 3 5 НИЧЕГО а Вопрос № 8 Что будет выведено...
vladimirshmele1
09.08.2020 17:35
Площпдь прямоугольника равна 3800 мм2, а длина одной из сторон - 50 мм. вычисли периметр прямогульника. решение. а=50 мм s=3800 мм2 р-? реши по плану. 1) запиши формулу площади...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var
a,sr:real;
i,n:integer;
begin
read(n);
for i:=1 to n do
begin
read(a);
sr:=sr+a;
end;
sr:=sr/n;
writeln(sr);
end.
все числа вводятся вручную, первое число-кол-во чисел, далее эти числа.