label vvod;
var tab:array [1..5,1..5] of integer;
pob:array [1..5] of integer;
por:array [1..5] of integer;
a,b,chislo:integer;
BEGIN
clrscr;
for a:=1 to 5 do
for b:=1 to 5 do
begin
if a=b then tab[a,b]:=0
else vvod:
begin
write('Vvedite znachenie yacheyki (',a,',',b,'): ');
readln(tab[a,b]);
if (tab[a,b]<0) or (tab[a,b]>2) then
begin
writeln('Nevernoe znachenie. Povtorite eshe raz.');
goto vvod;
end;
end;
end;
writeln;
writeln('Poluchennaya matritsa:');
for a:=1 to 5 do
writeln(tab[a,1],' ',tab[a,2],' ',tab[a,3],' ',tab[a,4],' ',tab[a,5]);
for a:=1 to 5 do
begin
pob[a]:=0; por[a]:=0;
for b:=1 to 5 do
begin
if a<>b then
begin
if tab[a,b]=0 then por[a]:=por[a]+1;
if tab[a,b]=2 then pob[a]:=pob[a]+1;
end
else
end;
end;
chislo:=0;
for a:=1 to 5 do
if pob[a]>por[a] then chislo:=chislo+1;
writeln;
writeln('Chislo komand, u kotoryh pobed bolshe, chem porazheniy, ravno ',chislo);
readln;
END.