Уменя есть ноут я сделал полную проверку на нём антивирусом 360total всё прошло успешно сделал оптимизацию через этот антивирус сказали отключить в некоторые вещи я отключил мне сказали перезпустить ноут я начал перезапускать но экран стоял включённым и показывал тёмный экран(10мин) тогда я выключил и включил всё осталось также .
154
282
Ответы на вопрос:
переустанавливай винду.у тебя слетела винда походу
другого способа решения не вижу
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
Популярно: Информатика
-
fuzzy7719.06.2023 02:28
-
Gkdm27.10.2022 06:42
-
DashaHB1622.06.2020 18:25
-
narik222227.09.2022 10:58
-
ленок21607.06.2021 18:40
-
saruul70803.06.2022 00:02
-
bondiserj14.06.2020 09:01
-
ЯрославаВячеславовна19.11.2022 16:30
-
Arsrezida19.07.2020 08:01
-
alinamalina3754414.07.2022 03:17