tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Сортировать 63 элемента
Сортировать 63 элемента по увеличению пузырьковым методом. решение записать на языке pascal.
klimdjan
3 27.05.2019 17:00
0
Ответы
tinafortinova78
24.06.2020 18:54
Это как
ПОКАЗАТЬ ОТВЕТЫ
Kasha09
24.06.2020 18:54
Const
m = 63;
var
arr: array[1..m] of integer;
i, j, k: integer;
begin
randomize;
write ('Исходный массив: ');
for i := 1 to m do begin
arr[i] := random(62)+1;
write (arr[i]:4);
end;
writeln; writeln;
for i := 1 to m-1 do
for j := 1 to m-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to m do
write (arr[i]:4);
writeln;
readln
end. Ну как то так
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Sweet572
01.03.2021 14:08
ЗаданиеNo4: Сопоставьте на звания основных блок-схем:1овалA) действие2) квадратB) Начало/Конец прогрСУсловие или цикл с ус...
muckanvicktoria
01.03.2021 14:08
Найдите и исправтьтеошибки в след Фрагментепрограммы...
Мэй15
01.03.2021 14:09
Print(str[::-1]) что делает...
cavgurova3131
01.03.2021 14:09
6.Интегрированная среда разработки(IDE) это - а) Это последовательность действий, которая направлена на достижение окончательного решения проблемы наиболее оптимальными...
gubankowauly19
01.03.2021 14:09
решить задачу связанную с программированием ( язык не важен...
Zangerange
07.02.2021 21:16
Напиши алгоритм закрашивания клеток вдоль всех стен для исполнителя Робот...
Lololo567
07.02.2021 21:16
Основные функции гироскопического датчика...
Niktommy
07.02.2021 21:15
10 номер , нужно чтобы работал на паскале...
kerimagaevakk
11.03.2022 18:01
нужно Какие утверждения истинны? 1) 1 = 1 2)ord( 1 ) = 1 3)если c – литера и 0 ≤c≤ 9 , то c – цифра 4)если c – литера и A ≤c≤ Z , то c – большая латинская буква Если...
enikandrova04
11.03.2022 17:47
1) 28 // 5 = 2) 15 // 25 = 3)65//4=...
Популярные вопросы
у прямокутну трапецію вписано коло. Знайти площу трапеції, якщо точка...
1
2) Что относится к горизонтальным механизмам передачи ВБИ?...
1
Надо разделить по столбикам...
3
1)Қазіргі замандағы физиканың рөлі қандай? 2) Физикада әлемнің қандай...
3
Зависимость прямых от количества точек. Т.е. из 3 точек, пройдут...
3
Найди закономерность в числовом ряду 7350 7750 8150 и продолжение...
2
Что делать портрет национальным в произведение искусства...
3
1. Электронды кітапхана қандай қызмет атқарады? 2. Кейіпкердің көңіл...
3
здравствуйте.можно мне попросить у вас так как это вообщеНЕПОНЯТНОДЛЯМЕНЯ...
1
Объясните расстановку знаков препинания в тексте: О дружбе Настоящая...
1
m = 63;
var
arr: array[1..m] of integer;
i, j, k: integer;
begin
randomize;
write ('Исходный массив: ');
for i := 1 to m do begin
arr[i] := random(62)+1;
write (arr[i]:4);
end;
writeln; writeln;
for i := 1 to m-1 do
for j := 1 to m-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to m do
write (arr[i]:4);
writeln;
readln
end. Ну как то так