Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
katyaSekret
21.09.2022 02:54 •
Информатика
Решить по pascal. дано числа a1, a9; b1, b11. максимальный элемент первой последовательности заменить на максимальный элемент второй последовательности и наоборот. программу оформить в виде "процедуры"
Показать ответ
Ответ:
irinamotorueva
09.09.2020 23:14
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
procedure AB(a,b:array of integer);
begin
var (iaMax,ibMax):=(a.IndexMax,b.IndexMax);
var t:=a[iaMax]; a[iaMax]:=b[ibMax]; b[ibMax]:=t
end;
begin
var a:=ArrRandom(9,-99,99);
Write('A: '); a.Println;
var b:=ArrRandom(11,-99,99);
Write('B: '); b.Println;
AB(a,b);
Write('A: '); a.Println;
Write('B: '); b.Println;
end.
Пример
A: -46 -76 98 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 80 -50 -55
A: -46 -76 80 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 98 -50 -55
0,0
(0 оценок)
Популярные вопросы: Информатика
aguanapfel
11.11.2020 01:53
Информационный объём текста, подготовленного с компьютера, равен 20 Мб. 1символ весит 1 байт. Сколько символов содержит этот текст?...
живууууу
30.12.2021 14:33
Определить делимость на 7 натурального числа записанного в двоичной системе счисления. формат входных данных: в первой строке входного файла input.txt содержится...
жанат17
27.02.2023 19:20
Написать программу которая вводит строку. Подсчитать количество гласных русских букв в строке и заменить их на знак *(Паскаль)...
Pavro1
11.09.2020 05:08
4. Черепашке был дан для исполнения следующий алгоритм: Повтори 6 [Вперёд 80 Направо 72]. Какая фигура появится на экране? 1) правильный пятиугольник 2) правильный...
fatowka84
24.02.2020 17:46
3. Черепашке был дан для исполнения следующий алгоритм: Повтори 7 [Вперёд 80 Направо 60]. Какая фигура появится на экране? 1) правильный пятиугольник 2) правильный...
kuznitsovas
12.07.2020 05:20
Вычислить значения функции у = (х + 2)(х - 1) на отрезке [-1; 2] с шагом 0,1 и построить график. Найти корни функции на график. Проверить методами вычислений по...
08760000
16.09.2022 09:00
154 в восмеричной сс перевести в двоичную сс...
Temirlan0958
16.09.2022 09:00
Стехнической точки зрения информация в компьютере хранится в виде...
лололололлоло97
16.09.2022 09:00
3487 байт это сколько кбайт 35,4 гбайт этосколько кбайт 32 бит это сколько байт 22 бита это сколько бит...
shitovilya
16.09.2022 09:00
А7 в шестнадцатиричной системе перевести в двоичную систему...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
procedure AB(a,b:array of integer);
begin
var (iaMax,ibMax):=(a.IndexMax,b.IndexMax);
var t:=a[iaMax]; a[iaMax]:=b[ibMax]; b[ibMax]:=t
end;
begin
var a:=ArrRandom(9,-99,99);
Write('A: '); a.Println;
var b:=ArrRandom(11,-99,99);
Write('B: '); b.Println;
AB(a,b);
Write('A: '); a.Println;
Write('B: '); b.Println;
end.
Пример
A: -46 -76 98 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 80 -50 -55
A: -46 -76 80 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 98 -50 -55