Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
неможетбыть
27.04.2022 05:27 •
Информатика
30 .составить блок-схему : определить среднее арифметическое последовательности чисел a[1], a[2], … a[n]. числа n, a[1], a[2], … a[n] вводятся с клавиатуры.
Показать ответ
Ответ:
nikihouston342
20.09.2020 12:15
//Блок-схема во вложении
var n,a,i:integer;
r:real;
begin
readln(n);
for i:=1 to n do
begin;
readln(a);
r:=r+a;
end;
r:=r/n;
writeln(r);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
BigBOSS2281
25.09.2020 16:40
Написать функцию для вычисления площади квадрата в python...
Камелия1231
29.07.2020 23:56
Напишите на языке паскаль программу вычисления y по формуле: y = ( 1- x2 + 5x4 )2, где x - данное целое число....
марттт
29.04.2022 15:36
Написать программу, которая вводит массив из n целых чисел и выводит на экран этот же массив в прямом и обратном порядке. протестировать программу на произвольных массивах,...
Polli200p
22.04.2022 02:57
Провести сортировку матрицы по возрастанию по столбцам по следующему правилу: сравниваем совместно элементы нечетных строк столбцов (z) с элементами четных строк столбцов...
3457ДашаСупер111
14.02.2023 22:41
Скажите отличается копирование файлов от инсталляции программ? для чего каждый дистрибутив имеет серийный номер?...
Niks78492986
14.02.2023 22:41
1.среди цифр четырехзначного числа есть четная. накидал тут решение, но где-то ошибка, не могу понять где var t,s,d,e,i: integer; begin for i: = 1000 to 9999 do t:...
hopik2
09.03.2023 06:15
Туристы(отец, мать и два близнеца) должны переправиться через реку. в их распоряжении есть маленькая лодка, вмещающая только одного взрослого или двоих детей. как организовать...
anystti
09.03.2023 06:15
Даны две простые дроби.составить алгоритм получения дроби являющейся результатом их !...
AnnaFruzanna
02.08.2021 04:51
Написать программу, которая вычисляет сумму первых n целых положительных чисел. количество суммируемых чисел должно вводиться во время работы программы. написать ее...
ikonnikov1997
13.03.2020 10:11
Как вы понимаете высказывание о том,что навык квалифицированного клавиатурного письма сегодня считается социальным,общекультурным ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,a,i:integer;
r:real;
begin
readln(n);
for i:=1 to n do
begin;
readln(a);
r:=r+a;
end;
r:=r/n;
writeln(r);
end.