Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
buh583
20.12.2022 05:21 •
Информатика
Впаскале нужна программа,которая поменят два элемента первый и последний заранее ) от 1 до 20 9 класс
Показать ответ
Ответ:
seliza415
27.06.2020 12:11
Не помню как там с объявлением переменных, но если брать основную часть, то:
begin
a:=0;
b:=mas[1];
max=0;
for (int i:=1;i<=20;i:=i+1)
{
if (mas[i]>max)
{
max:=mas[i];
a:=i;
}
mas[1]:=mas[a];
mas[a]:=b;
0,0
(0 оценок)
Популярные вопросы: Информатика
cjhjrf1212
02.08.2021 22:30
Что обозначает критерий отбора =18.06.2018 ?...
nataljalevchen
02.08.2021 22:30
Wps на wi-fiроутере сбрасывает пароль?...
liteops04
06.02.2021 18:23
Выражение, построить логическую схему и таблицу истинности для логического выражения: (a or b or c) and not (a or b and c) and not (a and not b and c) or a...
mdior10
12.07.2020 18:06
Определите количество натуральных чисел, удовлетворяющих неравенству: 11110000(2) x fa(16)...
соникна
13.01.2020 06:03
Сделайте модель по программе !...
AZIMJON11
27.11.2021 07:05
1. на отрезке [0; 2] с шагом 0,2 протабулировать функцию: 0,25х3+х-1,2502...
malia1011
20.04.2022 23:20
От чего зависит качество дискретного изображения...
Этотникужезанят146
01.01.2021 15:38
Як називається програма для обміну даними між комп ютерами?...
san4ez77
28.05.2021 20:07
в 1642 году паскаль создал первую механическую счетную машину сколько байтов или бит? 1.64 байта 2. 512 бит 3. 54 байта 4. 512...
kaitva15
28.05.2021 20:07
1) имена каких строк и столбцов при копировании формулы =$a23+c$21 не будут меняться: a)a .b) c. c)21. d)23 2) имена каких строк и столбцов при копировании формулы =$f15+k$44...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
a:=0;
b:=mas[1];
max=0;
for (int i:=1;i<=20;i:=i+1)
{
if (mas[i]>max)
{
max:=mas[i];
a:=i;
}
mas[1]:=mas[a];
mas[a]:=b;