Cod sursa(job #421157)
Utilizator | Data | 21 martie 2010 11:48:10 | |
---|---|---|---|
Problema | Copii | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Algoritmiada 2010, Runda 4, Clasele 5-8 | Marime | 0.35 kb |
program copii;
var n,i,j,g:integer;
v:array[1..20,1..20]of integer;
f,h:text;
begin
assign(f,'copii.in');
assign(h,'copii.out');
reset(f);
rewrite(h);
read(f,n);
for i:=1 to n do
for j:=1 to n do
read(f,v[i,j]);
g:=1;
g:=(n-1)*n div 2;
if g=0 then g:=1;
writeln(h,g);
close(f);
close(h);
end.