Имя программы в банке программ: Lab11v3.pas

 

 

uses Crt;
Const
nmax=100;
a='(';
b=')';
var
str:array [1..nmax] of char;
bal1,bal2,k,n:integer;
begin {Ballance}
clrscr;
writeln('Какое количество символов будете вводить для проверки баланса скобок ?');
readln(n);
writeln('Введите ',n:3,' символов.');
for k:=1 to n do
readln(str[k]);
writeln('Ваш текст: ');
write(' ');
for k:=1 to n do
write(str[k]); {Эхо-печать}
for k:=1 to n do
begin
if str[k]=a
then inc(bal1);
if str[k]=b
then inc(bal2)
end;
writeln;
if bal1=bal2
then write(' Балланс скобок в тексте присутствует.')
else write(' Балланс скобок в тексте отсутствует.')
end.{Ballance}