Желательно не больше 15 пунктов. сложите алгоритм на тему "как приготовить борщ"
109
497
Ответы на вопрос:
Борщ. состав - бульон (свинина+говядина) , капуста, картофель, морковь, свекла, репчатый лук, помидоры или томатная паста. 1. варим бульон - 1,5-2часа. 2. шинкуем капусту. 3. чистим овощи. 4.трем на терке морковь и свеклу. 5. режем кубиками лук. 6.лук обжариваем на раст. масле с томатами. 7. добавляем свеклу и морковь, все тушится. 8. режем соломкой картофель. 9. процеживаем готовый бульон. 10. в бульоне отвариваем до полуготовности картофель, добавляем капусту. 11. последний этап - заправляем зажаркой, солим. борщ готов.
Const n = 15; var a: array[1..n] of integer; i, max, min: integer; // тут будут храниться номера min и max begin randomize; {заполнение и вывод массива} write('исходный массив: '); for i: = 1 to n do begin a[i]: =random(21)-10; write(' ',a[i]) end; writeln; {поиск максимума и минимума} max: =1; min: =1; // проверять начинаем со второго элемента, // потому, что в первую очередь будем сравнивать с первым // (т.к. max = 1 и min = 1) for i: = 2 to n do begin if a[i]> a[max] then max: =i; if a[i]< a[min] then min: =i; // поскольку тут стоят знаки строго больше и строго меньше, // будут найдены только первый встретившийся максимум // и первый встретившийся минимум. // если бы стояли знаки больше или равно(> =) и меньше или равно(< =), // то найдены были бы последние встретившиеся max и min // то есть, например, в первом случае в массиве: // 1 2 3 4 5 2 5 1 // были бы найдены: min = 1, max = 5 // во втором случае в том же массиве были бы найдены: // min = 8, max = 7 end; // сколько элементов между пятым и первым ? - три. // между восьмым и седьмым ? - ноль // общая формула: // искомое кол-во элементов = |номермаксимума-номерминимума|-1 // значение берём по модулю потому, // что как минимальный элемент может стоять после максимального, // так и максимальный после минимального // то есть без модуля было бы так: 5-1-1 = 3, 7-8-1 = -2 // а с модулем так: |5-1|-1 = 3, |7-8|-1 = 0 // формула может выдать -1 в том случае, когда минимум равен максимум, // то есть когда все элементы массива равны. // на этот случай можно вывести соответствующее сообщение, или просто вывести ноль. writeln('max = a[',max,'] = ',a[max]); writeln('min = a[',min,'] = ',a[min]); i: =abs(max-min)-1; // перепишем сюда получившееся значение, // чтобы потом ещё раз его не высчитывать if i = -1 then writeln('все элементы массива равны.') else writeln('кол-во элементов между max и min = ',i); end. пример: исходный массив: 5 -2 -5 5 6 -7 7 -6 6 3 -4 6 -8 7 1 max = a[7] = 7 min = a[13] = -8 кол-во элементов между max и min = 5
Популярно: Информатика
-
Рабка19.04.2022 18:10
-
khairulliniljap00rzn01.12.2020 10:27
-
Анастасия2303200514.09.2020 02:34
-
Ник691123.03.2021 03:22
-
гвст16.04.2023 01:18
-
zzzzmi01.11.2022 23:39
-
Соня1337707.03.2020 01:03
-
nikitakirillov324.10.2020 00:47
-
samgrachev18.03.2020 15:07
-
LIBOVALEmail17.02.2022 16:37