Розв’язок задачі з Абрамова №420

Всі умови | Умова: Дано натуральне n, символьна квадратна матриця порядку n. Отримати послідовність b1, ..., bn з нулів та одиниць, в якій bi = 1 тоді і тільки тоді, коли в i-рядку число символів * не менше числа прогалин. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №420)

program Pr420;
var
   a : array [1..20, 1..20] of char;
   zvezd, probel, b: array [1..20] of integer;
   i, j, n, s : integer;
begin
   readln(n);
   for i:=1 to n do
      for j:=1 to n do
         read(a[i,j]);

   for i:=1 to n do
   begin
      for j:=1 to n do write(a[i,j]:3);
      writeln;
   end;
  
   for i:=1 to n do
     for j:=1 to n do
     begin
        if a[i,j]=' ' then probel[j]:=probel[j]+1;
        if a[i,j]='*' then zvezd[j]:=zvezd[j]+1;
     end;
   for j:=1 to n do
   begin
      if zvezd[j]>=probel[j] then b[j]:=1 else b[j]:=0 ;
   end;
   
   writeln('Result:');
   for i:=1 to n do
   begin
      write(b[i]:3);
      writeln;
   end;
end.