Каждый из N учеников в классе за экзамен получил некоторый от 0 до 100. Учителя интересует вопрос: какой минимальный и максимальный были получены учениками в данном классе учителю ответить на этот вопрос. Первая строка входного файла содержит целое число N — количество учеников в классе (1 ≤ N ≤ 1000) .
Во второй строке записано N целых чисел, разделенных знаком табуляции, — каждого участника за экзамен. Каждое из чисел находится в диапазоне от 0 до 100.
Код ASCII символа табуляции - 9.
1) директория - зачем бы директорию называть еще и ярлыком? Нет, конечно.
2) перемещенный файл, папка или программа - аналогично, это все равно файл, папка или программа. Тоже нет.
4) копия файла, папки или программы - и это не подходит. Копия - это копия, причем тут какие-то ярлыки?
А ярлык - специальный файл, в котором содержится путь к файлу или папке, а также некоторая дополнительная информация. Внешне он отображается в виде иконки - графического элемента интерфейса операционной системы.
ответ: 3)
var
brackets: array [0..2, 0..1] of char := (('{', '}'), ('[', ']'), ('(', ')'));
begin
var s := ReadlnString();
var counter := 0;
var max_depth := 0;
for var i := 1 to s.Length do
begin
if s[i] = '(' then counter += 1
else if s[i] = ')' then counter -= 1
else continue;
if counter < 0 then begin
writeln('brackets error');
Halt;
end;
if counter > max_depth then max_depth := counter;
end;
counter := 0;
for var i := 1 to s.Length do
begin
if s[i] = '(' then counter += 1
else if s[i] = ')' then counter -= 1
else continue;
if (counter = max_depth - 1) and (s[i] = '(') then s[i] := brackets[1, 0]
else if (counter = max_depth - 2) and (s[i] = ')') then s[i] := brackets[1, 1]
else if (counter = max_depth - 2) and (s[i] = '(') then s[i] := brackets[0, 0]
else if (counter = max_depth - 3) and (s[i] = ')') then s[i] := brackets[0, 1];
end;
writeln(s);
end.