Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
uglyfrosha
26.03.2020 21:59 •
Информатика
4. Пример алгоритма для нахождения наименьшего из двух чисел алгоритм 1 шаг: Начало 2 шаг: Вводятся два числа numl и num2 3 шаг: Если то е е е Вывести е за оо Иначе Вывести Завершить проверку 4 шаг: Конец
👇
Увидеть ответ
Открыть все ответы
Ответ:
striletsnastya
26.03.2020
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. Ну как то так
4,8
(20 оценок)
Ответ:
никкки228
26.03.2020
1. Блок питания - Antec Basiq VP650P 650W
2. Видеокарта - MSI GeForce GTX560 Ti N560GTX-Ti Twin Frozr II
3. Джойстик - Руль + рукоятка - Genius MaxFighter F-17+Genius MaxFire Grandias (USB, 12 кнопок, кнопки Turbo и Macro, с обратной связью)+ Genius Speed Wheel 3 MT
4. Жесткий диск - HDD 750ГБ, 2.5", 5400об/мин, 8МБ, SATA II, Western Digital Scorpio Blue, WD7500BPVT
5. Звуковая карта - нет
6. Источник бесперебойного питания - ИБП Powercom WOW-700U
7. Клавиатура - Genius KB06XE(PS/2)
8. Монитор - ViewSonic VA1931wa-LED, 1366x768, 5ms
9. Мышь - Genius NetScroll 110 (оптическая, 800dpi, PS/2, Bundle, white)
10. Оперативная память - Kingston KHX1600C9D3K2/8GX 2x4GB 1600MHz
11. Привод для чтения и записи оптических дисков - нет
12. Процессор - Intel Core i5-2400 3,1GHz
13. Сетевая карта - D-Link DFE-520TX, PCIEthernet, 10/100Mbps
14. Системная плата - ASUS P8P67 EVO (REV 3.0)
15. Системный блок - Zalman Z9 Plus.
4,4
(23 оценок)
Это интересно:
О
Образование
06.01.2021
Клюква стоит 250 рублей за кг, а малина 200....
О
Образование
16.03.2023
Решить систему уравнений x2 + y2 + xy = 3...
О
Образование
05.08.2020
Решить систему уравнений x2 + xy +y2 = 13...
О
Образование
06.04.2022
В треугольнике АВС проведена биссектриса АК...
О
Образование
11.03.2020
Водитель ехал с постоянной скоростью из города А в город Б...
О
Образование
27.04.2022
Первые 300 км автомобиль ехал со скоростью 60 км/час...
О
Образование
02.06.2023
В треугольнике АВС точка D на стороне АВ...
О
Образование
21.07.2020
Из разных городов, расстояние между которыми 600 км...
О
Образование
29.01.2020
Из пункта А в пункт B, расстояние между которыми 84 км...
Х
Хобби-и-рукоделие
21.02.2021
Правила и техника игры в карточную игру Скорость...
Новые ответы от MOGZ: Информатика
00svetochka00
01.01.2022
Составите таблицу истинности для логической функции f=x& (y+x)& y...
Anrehah
10.01.2023
Книга содержит 148 страниц. На каждой странице 31 строк. В каждой строке 57 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ кодируется...
SemenBio
04.08.2021
4. Складіть проект для малювання кіл різного кольору, поки виконавець не доторкнеться до межі Сцени....
Julia77707
20.03.2020
написать программу на питоне...
brain75
19.04.2023
Статья, набранная на компьютере, содержит 16 страницы, на каждой странице 32 строк, в каждой строке 64 символа. Определите размер статьи в кодировке КОИ-8, в которой каждый...
alinashelepova1
23.07.2022
Сколько персонажей в игре? ( ) основная идея? ( ) перечисли основные действия персонажей ( ) есть ли в программе команды циклического алгоритма? ( ) найдите ошибку и исправьте...
tyty55
02.02.2020
Программа Паскаль.Цикл с предусловием.1.Дано целое положительное число напечатать количество и сумму его цифр.2.Дано целое положительное число .Узнать есть ли в числе не парные...
vika2088
06.06.2020
3. Дано натуральні числа ni m. Знайти вс числа, які лежать на проміжку [n; m]....
диана2440
02.08.2022
(Python) Бандиты Гарри и Ларри отдыхали на природе. Решив пострелять, они выставили на бревно несколько банок из-под кока-колы (не больше 10). Гарри начал банки по порядку,...
Алёксейudfih
20.09.2022
вариант паскаль вложенные циклы...
MOGZ ответил
Составить цитатный план по произведению муму...
Сочинение на тему: будуйщая професия почему именно она? напиши про программиста...
Охарактеризуйте h2sio3 по плану: 1) название вещества 2) наличие кислорода...
Место и год издания словаря а. и. галич...
Мне нужно делать доклад по биологии. тема: рижские шпроты. какую можно поставить...
Найдите сторону квадрата равновеликого прямоугольному треугольнику с катетами...
Назовите поже эти слова по буквам father, money, which, quarter, seem, jam,...
Найдите площадь квадрата,периметр которого равен 124см...
Решите уравнения предложенным х-8=2х+1. 2)2целых5/6х-5,5=1целая2/3х-2...
Развитие железной дороги при николае 1, если можно вкратце....
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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. Ну как то так