Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
VasyaHrenov
09.08.2021 01:06 •
Информатика
Составить программу которая заполняет массив а случайными целыми числами в диапазоне от 1 до 10 и вычисляет сумму элементов массива с индексом от n до m включительно. числа n и m введите с клавиатуры
Ответ:
lera1062
07.10.2020 01:04
// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,1,10); a.Println;
var (n,m):=ReadInteger2('Введите n и m:');
Writeln('S=',a[n-1:m].Sum)
end.
Пример
1 8 9 1 2 1 10 4 10 2
Введите n и m: 3 6
S=13
0,0
(0 оценок)
Популярные вопросы: Информатика
svetlanasen12
17.01.2020 02:09
Выберите элементы для форматирования электронной таблицы. 1.изменение цвета текста2 изображение3.цвет границы4. Звук...
lapkinalidala
09.11.2020 22:37
Запиши адрес выделенной ячейки ГлавнаяВставкаРазметка страницыФормулыДанныеCalibriA AВставитьж ку:таБуфер обмена наШрифтВыравниваниеКнига1 ж.AСо о Н.45.бод отПосогите зделаю...
хорошист55007
26.10.2021 02:08
Дана таблица и правило условного форматирования. ABсD1고Средняя скорость транспорта км/ч356Вид транспорта скоростьавтобус60ДІНгрузовые70легковые80велосипеды15Мотоциклы45789междуФорматирогать...
ПольгаБос
07.04.2023 15:30
Информационный объем рисунка равен 2 кб. Для его создания использовали 16 цветов. Чему будет равен его объем, если сохранить этот рисунок как черно-белый?...
DarKerThanBlaCK34
14.02.2021 21:58
Программисти ! (паскаль)Оператори програми переставлені в випадковому порядку. Складіть з нихпрограму для обчислення функції (оператори можна копіювати і вставляти всередовище...
gladishsofiya
05.04.2023 09:46
Даны 3 числа. Подсчитать количество отрицательных чисел среди данных чисел. Составить алгоритм. Составить нужно именно АЛГОРИТМ, а Не программу....
valeriauzbekova
27.07.2020 02:39
Как называется программа для организации досуга и обучения , примеры...
Aydan666
27.07.2020 02:39
Dvd-диск объёмом 4,7 гб весит 20 г. сколько бы весил набор дисков, необходимый для полного копирования информации с жёсткого диска объёмом 2 тб?...
darina2340
27.07.2020 02:39
Исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b) (где a, b — целые числа), перемещающую...
13Андрей1311
27.04.2023 14:28
Сделайте вывод как христианская религия повлияла на развитие римского общества?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,1,10); a.Println;
var (n,m):=ReadInteger2('Введите n и m:');
Writeln('S=',a[n-1:m].Sum)
end.
Пример
1 8 9 1 2 1 10 4 10 2
Введите n и m: 3 6
S=13