Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Max1643
27.12.2022 07:23 •
Информатика
Составьте программу, которая формирует массив из 8 случайных целых чисел от 1 до 20 и меняет местами значения 2-го и последнего элементов массива
Ответ:
sofiyamotkova
17.08.2020 06:46
PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(8, 1, 20);
a.Println;
Swap(a[1], a[a.High]);
a.Println
end.
Пример14 19 18 5 2 8 1 1414 14 18 5 2 8 1 19
0,0
(0 оценок)
Популярные вопросы: Информатика
katy54445
15.11.2020 05:38
5. Определи результат переменной y после выполнения программы. y=0 for x in range(-2, 4, 2): y=y+2*x a. -4 b. 4 c. -2 d. 0...
timkoa
28.12.2022 13:52
, выдаёт ошибку fatal:syntax error, : expected but ; found implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); var k; integer; (здесь выдаёт ошибку...
MisterGamerTT
13.04.2021 18:50
Программа обрабатывает одномерный целочисленный массив dat: i 1 2 3 4 5 6 7 8 9 10 dat[i] 70 80 90 100 80 40 40 70 80 90 заполните трассировочную таблицу и определите, какие числа...
ZloYDedyskA
15.09.2022 14:46
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число....
fernandus
12.08.2020 19:42
Установи соответствиеВыберите...дв.Выберите...Выберите:...
Izilaevapolina
09.04.2020 09:04
Программисты телефон не включается , и высвечивается такая панель, что делать?...
zol1981
12.06.2020 08:18
Обчислити обєм і площу поверхні прямокутного паралелепіпеда якщо його виміри дорівнюють 12см 15см 18см...
spooknook
12.06.2020 08:18
10309681-56464-15489+56891-9598642=сколько...
маоия051209
12.06.2020 08:18
Дано уравнение окружности (x-3)^2+(y-5)^2=25, проходящей через точку м. найдите координаты этой точки,если она принадлежит оси ординат...
nelnur77
12.06.2020 08:18
Охарактеризовать мезолит в казахстане...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
var a := ArrRandom(8, 1, 20);
a.Println;
Swap(a[1], a[a.High]);
a.Println
end.
Пример14 19 18 5 2 8 1 1414 14 18 5 2 8 1 19