Var arr : array [1..10] of integer; //Объявляем массив i, min, max : integer; //Индекс, позиция минимального элемента, позиция максимального элемента begin min := 1; max := 1;
for i := 1 to 10 do arr[i] := Random(20) - 10; //Заполняем массив
for i := 2 to 10 do //Находим позицию максимального элемента if arr[i] > arr[max] then max := i;
for i := 2 to 10 do //Находим позицию минимального элемента if arr[i] < arr[min] then min := i;
writeln('Максимальный элемент: ', arr[max], '; его позиция: ', max); writeln('Минимальныйй элемент: ', arr[min], '; его позиция: ', min); end.
Объяснение:
Количество секунд в месяце: 60*60*24*30 = 2592000
Количество переборов в месяц: 2592000 * 10^6 или 2592 * 10^9
то есть
то есть меньше 10 в 13 степени
происходит перебор цифр от 0 до 9 то есть 10 вариантов, каждый ряд символов добавляет еще 10 символов, таким образом
10^13 > 2592 * 10^9
заглавные буквы латинского алфавита + цифры
24+10 = 34^9 > 2592 * 10^9
заглавные и строчные буквы латинского алфавита + цифры
24*2+10 = 58^8 > 2592 * 10^9
а) 13 символов
б): 9 символов
в): 8 символов
arr : array [1..10] of integer; //Объявляем массив
i, min, max : integer; //Индекс, позиция минимального элемента, позиция максимального элемента
begin
min := 1;
max := 1;
for i := 1 to 10 do
arr[i] := Random(20) - 10; //Заполняем массив
for i := 2 to 10 do //Находим позицию максимального элемента
if arr[i] > arr[max] then
max := i;
for i := 2 to 10 do //Находим позицию минимального элемента
if arr[i] < arr[min] then
min := i;
writeln('Максимальный элемент: ', arr[max], '; его позиция: ', max);
writeln('Минимальныйй элемент: ', arr[min], '; его позиция: ', min);
end.