Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
marine25
18.05.2021 23:22 •
Информатика
Создать массив а, состоящий из 10 элементов, проинициализируйте его числами 10, 20, 30, 100. вывести массив на экран. найти среднее арифметическое значений массива, вывести на экран. увеличить первый, пятый и десятый элементы массива на 5.
Показать ответ
Ответ:
Игрик900
22.09.2020 20:46
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var a:=Range(10,100,10).ToArray; a.Println;
Writeln('Ср.арифм.=',a.Average);
a[0]+=5; a[4]+=5; a[9]+=5;
a.Println
end.
Тестовое решение:
10 20 30 40 50 60 70 80 90 100
Ср.арифм.=55
15 20 30 40 55 60 70 80 90 105
0,0
(0 оценок)
Популярные вопросы: Информатика
yuliyaefremova3
30.04.2020 21:06
Автоматичний пристрій здійснив перекодування текстового повідомлення українською мовою, спочатку записаного в 16-бітному коді unicode, у 8-бітне кодування kol-8....
kakaha228oleg
10.10.2022 11:37
Как называют представления человека о природе, обществе и самом себе?...
filyanarasulov
19.04.2021 09:00
Вкаком случае сообщение содержит информацию для человека? а)если сведения на языке б) если сведения доказаны наукой в)если сведения новые для человека г)если сведения...
MaShall5619
19.04.2021 09:00
Дано файл зображення 7,4 мб, що знаходиться в інтернеті. швидкість інтернет з єднання становить 2,4 мбіт/с. визначити час за який це зображення може бути завантажене...
MrX01
16.01.2021 05:30
Ускольких натуральных чисел от 1 до 2 в степени 10 сумма цифр кратна четырем?...
Still227
16.01.2021 05:30
Какое из имён удовлетворяет логическому условию: (первая буква согласная или последняя буква согласная) и не(последняя буква согласная)? если таких слов несколько,...
илрлрле
30.11.2020 14:08
Написать программу, которая находит сумму, произведения, частное и разность 2 целых чисел. эти числа вводятся с клавиатуры....
Maksim3131
04.07.2022 18:32
30 ! ! в программе описан двумерный массив a следующим образом const n=5; m=6; type arr=array[1..n,1..m] of integer; var a: arr; определить, как изменится в программе...
Егор1123321
04.07.2022 18:32
Подставте одну букву к слову песок чтобы получилось новое слово...
марина1930
04.07.2022 18:32
Выберите,что не является важным ресурсом компьютера? центральный процессор оперативная память внешняя память монитор...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=Range(10,100,10).ToArray; a.Println;
Writeln('Ср.арифм.=',a.Average);
a[0]+=5; a[4]+=5; a[9]+=5;
a.Println
end.
Тестовое решение:
10 20 30 40 50 60 70 80 90 100
Ср.арифм.=55
15 20 30 40 55 60 70 80 90 105