Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
08122005vlad
08.02.2020 19:50 •
Информатика
Напишете программу на языке pascal, которая в массиве из 23 элементов заменяет последний элемент минимальным. массив должен заполняться случайными значениями в интервале от 0 до 120
Показать ответ
Ответ:
Evo4ka111
05.10.2020 03:57
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(23,0,120); a.Println;
a[22]:=a.Min; a.Println
end.
Пример
26 32 46 4 64 40 17 60 35 1 34 39 113 61 26 53 92 89 11 10 98 90 34
26 32 46 4 64 40 17 60 35 1 34 39 113 61 26 53 92 89 11 10 98 90 1
0,0
(0 оценок)
Популярные вопросы: Информатика
vfhbz2000
16.11.2020 00:35
Дан массив размера N. Найти номер его первого локального минимума (локальный минимум — это элемент, который меньше любого из своих соседей). Решение на Питоне...
Neo11118
07.07.2021 16:49
1. age=6 b= дошкільня if age = 1 and age 6: print(b) 2age=6 b= дитина if age 0 and age 6 or age = 6 and age 18 : print(b) 3.a=13 if a 12 and a = 27: a=a+1 if a 5: a=a+12...
Sayat2007
27.07.2021 03:30
Таблица истинности .! алёша , боря и таблица истинности .! алёша , боря и гриша нашли в землеалёша , боря и гриша нашли в земле старинный сосуд. расматривая удивительную...
IBRAGIM058
11.05.2023 14:06
1 даны два числа, если их сумма нечетная и разность положительная, тогда найти произведение этих чисел, иначе разность кубов большего и меньшего чисел...
Поля6000
07.02.2021 17:39
Форматы данных Дана таблица. Определи тип данныхячейки А5:DA1 фрукты2 бананз яблокоBCценаколичество, кг580,00 T450,00 T400,00 T650,00 Tстоимость1 580,00 T2 900,00 T1...
mdotsenko
27.04.2020 03:25
Отметьте верные высказывания, которые будут, являться текстом или текстовойинформацией. Правильные вариантыответов подчеркните.1. Прочитанная басня Н.В. Крылова«Лебедь,...
юлия30885
02.05.2022 06:19
315. по данному натуральному n вычислите сумму 1^2 + 2^2++n^2. вводится единственное число n. необходимо вывести вычисленную сумму. 346.подсчитайте, сколько среди данных...
VickaBro
06.09.2022 09:41
Макет слайда это- 1) шаблон который определяет количество и взаимное расположение текстовых и графических объектов на слайде 2) набор значений свойств объектов имеющий...
Katya1065
30.12.2020 08:42
Сколько двоичных разрядов необходимо и достаточно, чтобы закодировать 26 букв алфавита без учёта регистра?...
misik1
15.07.2021 09:20
8. заполните массив случайными числами в диапазоне 0..100 и подсчитайте отдельно среднее значение всех элементов, которые 50, и среднее значение всех элементов, которые...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(23,0,120); a.Println;
a[22]:=a.Min; a.Println
end.
Пример
26 32 46 4 64 40 17 60 35 1 34 39 113 61 26 53 92 89 11 10 98 90 34
26 32 46 4 64 40 17 60 35 1 34 39 113 61 26 53 92 89 11 10 98 90 1