Напишите код в турбо паскаль, . проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.

Program abc; var a, b, i: integer; s: string; begin a : = 0; b : = 0; read(s); for i : = 1 to length(s) do begin if s[i] = '(' then inc(a) else if s[i] = ')' then inc(b); end; if a = b then writeln('одинаковое.') else writeln('разное.'); end.

Const n=8; var  a: array[1..n,1..n] of integer; i,j,k,s,s1,si,dmin,smin: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to n do   begin   a[i,j]: =random(50);   write(a[i,j]: 4);   end;   writeln;   end; write('k = '); readln(k); s: =0; for j: =1 to n do s: =s+a[k,j]; writeln('s = ',s); dmin: =999999; smin: =999999; for i: =1 to n do   if i< > k then   begin   s1: =0;     for j: =1 to n do s1: =s1+a[i,j];   writeln('s',i,' = ',s1);   if abs(s1-s)< dmin then begin dmin: =abs(s1-s); smin: =s1; si: =i; end;   end; writeln('номер строки = ',si,', smin = ',smin); end. пример: исходный массив:     9   0   22   40   20   35   2   25   23   30   22   35   41   0   9   40     1   15   6   18   43   47   34   33   26   5   2   45   13   46   40   2   26   39   7   31   3   43   20   8   25   15   24   6   10   16   3   25   47   0   27   35   14   15   36   11   16   38   14   14   33   7   11   26 k = 5 s = 177 s1 = 153 s2 = 200 s3 = 197 s4 = 179 s6 = 124 s7 = 185 s8 = 159 номер строки = 4, smin = 179

Первая программа: в ней ты вводишь число б с клавиатуры,и проверяешь через цикл является ли б минимальным числом,если введённое б< 32000,то оно-минимальное вторая: вводишь н для количества повторений цикла пока не дошло до числа н, вводишь  с клавиатуры а,далее каждое а проверяется на условия: минимальное число(32000 по условию)> а,а делится на пятнадцать без остатка,а> 0, если все эти условия соблюдены,то а-минимальное число. без цикла проверяет остаток от деления числа а на 15 и записывает остаток от деления в переменную б выводит на экран минимальное число и значение переменной б третья: проверяет условие: переменная а больше б,если да,то выводит на экран переменную а,если нет-то выводит на экран переменную б