Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
влвллвл
13.01.2023 20:38 •
Информатика
Составить программу вывода на экран среднего арифметического массива состоящего из 15 элементов
Показать ответ
Ответ:
kimvlad1712
08.10.2020 15:47
Program TZ5;
const
n=15;
var
a:array [1..n] of integer;
i,b:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random (20);
a[i]:=a[i]-10;
writeln(i,' ',a[i]);
end;
b:=0;
for i:=1 to n do
b:=b+a[i];
writeln('srednee = ',b/n);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ilia62002
29.01.2020 12:09
Информационный объем статьи 96 кбайт. сколько страниц займет статья, если на одной странице электронного документа помещается 24 строки по 80 символов, а каждый символ представлен...
александра7896
05.01.2023 00:25
Требовалось написать программу, которая для введённого натурального числа n выводит общее количество его различных делителей, включая 1 и n. к сожалению, ученик написал программу...
grabon12312
29.10.2022 10:25
Известно, что 1 число месяца-день недели среда. составить программу, которая после ввода любого числа в этом месяце выдаёт какой это день недели...
32453
05.10.2021 16:24
Нужно, чтобы включение света в комнате осуществлялось с трех различных переключателей так, чтобы нажатие на любой из них приводило к включению света, если он перед этим был...
valera242
18.10.2022 14:12
Найди значение выражения :3б+15битов=...
MiYaG11
21.03.2022 14:26
4. Чем отличается чтение нoт от прослушивания музыки с точки зре ния формы принимаемой информации...
Huuur
01.06.2021 21:13
Как изменится средняя кинетическая энергия молекул одноатомного идеального газа, если его температура увеличилась от 1°с до 166°с? увеличилась в 165 раз увеличилась в 166 раз...
ярослав6рюховецкий
13.04.2022 15:08
Вычеркните лишний элемент. избирательная компания: 1. проведение агитации 2. участие кандидатов в теледебатах 3. опубликование программ 4. выдвижение кандидатов 5. встреча...
avgustreykh14
13.04.2022 15:08
Уравнение реакций нитрат магния + вода hcl + h2o so2+ h2o k + h2o...
irinkaff1
13.04.2022 15:08
Хозяйка купила глубокие и мелкие тарелки,уплатив за покупку 320 р.глубокая тарелка стоит 35 р., а маленькая-30 р.сколько глубоких и сколько мелких тарелок купила хозяйка? везде...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const
n=15;
var
a:array [1..n] of integer;
i,b:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random (20);
a[i]:=a[i]-10;
writeln(i,' ',a[i]);
end;
b:=0;
for i:=1 to n do
b:=b+a[i];
writeln('srednee = ',b/n);
readln;
end.