Решите на паскаль плз 1. «строки» дано арифметическое выражение, требуется вывести его корректность. корректность = true если скобки расставлены в нем верно, = false если неверно. на корректность влияют только скобки. входные данные: арифметическое выражение в одну строку (до 255 символов) выходные данные: корректность пример: вход выход 1+5+(321-54*[321-321]+21) true 1+5+(321-54*[321-321]+21 false

Идея алгоритма заключается в том, что для проверки корректности строки мы заводим стек, содержащий в себе открывающие скобки. посмотрим конкретно на вашем примере: ) 1+5+(321-54*[321-321]+21) мы идём слева-направо, откидывая все символы, не являющиеся скобками, поскольку они нас не интересуют (как это было указано в вашем условии, почему я это и уточнял) затем, натыкаясь на открывающую скобку, добавляем её в стек. в нашем стеке: "(" идём дальше, находим открывающую квадратную скобку, кладём в стек в нашем стеке: "([" дальше видим закрывающую квадратную скобку, т.к. у нас последняя добавленная скобка - [, значит, она закрываёт её. в нашем стеке: "(" аналогично с круглой скобкой, в итоге в нашем стеке не остаётся ничего, строка корректна: ) в остальных случаях: если программа наткнётся на закрывающую скобку, для которой не найдётся открытой в стеке, причём той же самой (для квадратной - квадратная, для круглой - круглая, для фигурной - фигурная) выходит, выражение некорректно, что мы и выводим в качестве ответа. само собой, если после выполнения программы останутся незакрывшиеся скобки, значит, это выражение тоже является некорректным. я не мастер объяснять, но надеюсь, что мой разбор вам: )  исходный код вложен в ответ.

  program al;   var   a: array[1..32000] of integer;     buf: integer;     i,n,min,max: integer; begin    writeln('n=');   readln(n);     writeln('vvedite massiv=');   for i : = 1 to n do    readln(a[i]);   min: =1;   max: =1;     for i: =2 to n do      begin        if a[min]> a[i] then          min: =i;       if a[max]< a[i] then        max: =i;       end;   buf: =a[min];   a[min]: =a[max];   a[max]: =buf;   writeln('massiv posle obmena max< -> min');     for i: =1 to n do    write(a[i]: 4);   writeln;     end.