Всі умови | Умова: Дано натуральне 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.