Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Дианка20043005
24.03.2020 09:24 •
Информатика
Нужно написать программу в паскале. нужно найти мах и мин в массиве и поменять их местами!
Показать ответ
Ответ:
Колобокхоёк
06.07.2020 12:12
Var a:array[0..100] of integer;
i:integer;
max,min:integer;
begin
for i:=0 to 100 do begin
if a[i]<a[min] then min:=i;
if a[i]>a[max] then max:=i;
end
i:=a[max];
a[max]:=a[min];
a[min]:=i;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ladhice
09.05.2023 10:04
Составьте программу которая позволяет ввести с клавиатуры две строки и определяет равны ли эти строки между собой, если не равны выводит эти строки в алфавитном порядке...
Wolffy
26.08.2020 15:47
Паскаль 2. ввести номер этажа, на котором вы живете, программа должна ответить я живу на … этаже (вместо пропуска должен отобразиться этаж, который ввели) 3. при...
Music05
08.12.2021 20:26
Решить по информатике надо зашифровать предложенное слово....
sprikutviktpria
02.05.2020 13:49
Чи можна створити комп ютер який би не потребував OC ...
Bernardeschi
31.01.2021 19:03
Написать программу Qbasic . дана последовательность натуральных чисел от 1 до 20 . вывести на экран из этой последовательности только тех чисел кратных 5 . Очень...
опшпищи
11.05.2021 15:36
Информатика «Каждый человек должен учиться программировать, потому что этоучит нас думать.Стив ДжобсС программирования формируются навыки логического и алго-ритмического...
tainyanonimusp08coh
30.03.2021 16:37
1. Устройство, защищающее сеть от несанкционированного доступа… а) Мостб) Шлюзв) Брэндмауэр2.Какая сеть самая неустойчивая?а) простое соединениеб) соединение кольцомв)...
Mario1543554
09.02.2020 13:30
1111111111111111111111111111111111111111111111111111111111...
Діанагрeк
30.05.2023 21:46
You want to go on a sightseeing tour and you d like to get more information. Ask question, about… 1 the duration of the tour 2 the startig point 3. An amount of bridges...
sodemAN2
04.12.2020 16:23
Влияние избытка солей на растение....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
max,min:integer;
begin
for i:=0 to 100 do begin
if a[i]<a[min] then min:=i;
if a[i]>a[max] then max:=i;
end
i:=a[max];
a[max]:=a[min];
a[min]:=i;
end.