Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
lew8
23.09.2020 09:35 •
Информатика
Заполнить линейный массив из 10 элементов случайными числами. вычислить среднее арифметическое всех его элементов.pascal abc
Показать ответ
Ответ:
Anele2003
08.10.2020 21:10
Var
a: array [1..10] of integer;
i, k: byte;
sum: real;
begin
randomize;
sum := 0;
k := 0;
writeln(' *** Исходный массив ***');
for i := 1 to 10 do
begin
a[i] := random(50);
sum := sum + a[i];
k := k + 1;
write(a[i], ' ');
end;
writeln(#13+'Среднее арифметическое = ', (sum/k):0:2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lolopoo
01.01.2022 20:33
Вывести квадраты натуральных чисел в диапазоне от [a,b] на языке pascal....
abdrazakovernat
29.03.2023 12:27
Ребят Перемещаясь по вершинам дерева,найдите файл Слесарные инсрументы.К какому виду информации относится этот файл?...
aruukewa123
12.02.2023 15:02
ИНФОРМАТИКА УСЛОВИЕ ЗАДАНИЯ: Запишіть у зошит формули для обчислення значень наведених числових виразів в електронній таблиці...
220505b
03.08.2022 13:14
. Просмотреть видеоматериалы к уроку 2. Изучи параграф 27, стр. 135 - 140.3. Письменно ответь на вопросы стр. 138 - 139.4. Письменно, в тетради, выполни задание стр. 140 Выполняем...
tyrykina0115
21.07.2021 19:43
Сколько килобайт информации содержит сообщение объемом 2 мегабайта?...
Sasha7749
21.07.2021 19:43
Закончите предложение: «алгоритм, в котором команды выполняются в порядке их записи, то есть последовательно друг за другом, называется …» линейным ветвлением циклическим...
aaadia
21.07.2021 19:43
Сдиаграмм эйлера-венна решить поставленную через систему.в ящике лежат 120 деталей, из них на автомате №1 обработано 82 штуки, на автомате №2 – 23, а на автомате №3 – 42 штуки....
123qjfj
22.01.2020 15:35
Определите объем видеопамяти в мегабайтах, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 1280 х 1024 и палитрой из 65536...
adelkasquirrel11
29.10.2020 22:30
1) применение эмбриональных стволовых клеток более предпочтительно и 2) применение эмбриональных стволовых клеток менее предпочтительно. Приведите максимальное количество аргументов...
proovdnik
06.01.2023 14:33
Здійсніть реакції йонного обміну за такою схемою: натрій гідроксид → натрій сульфат → натрій хлорид. Складіть відповідні рівняння реакції у молекулярному, повному і скороченому...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array [1..10] of integer;
i, k: byte;
sum: real;
begin
randomize;
sum := 0;
k := 0;
writeln(' *** Исходный массив ***');
for i := 1 to 10 do
begin
a[i] := random(50);
sum := sum + a[i];
k := k + 1;
write(a[i], ' ');
end;
writeln(#13+'Среднее арифметическое = ', (sum/k):0:2);
end.