15.2. Napisati program provjera ispravnost broja otvorenih i zatvorenih zagrada. Test primjeri: (()()), )()), ())).

Listing programa:

PROGRAM P15131078;
USES 
  WinCRT;

var
  Str: string;
  i: Integer;
  Len: Integer;
  Niz: array[0..1000] of Char;
  br: Integer ;

begin
  readln(Str);
  Len := Length(Str);
  br := 0 ;
  for i := 1 to Len do
    Niz[i] := Str[i];
  for i := 1 to Len do
      begin
           if (Niz[i] = '(') then
              br := br + 1;
           if (Niz[i] = ')') then
              br := br - 1;
           if(br < 0) then
              Break;
       end;
       if(br = 0) then
             writeln('Nema gresaka')
       else
           writeln('Broja zagrada nije dobar');
end.

Ispis na ekranu:

Index