Cod sursa(job #525917)
Utilizator | Regina M. regina | Data | 26 ianuarie 2011 18:49:59 |
---|---|---|---|
Problema | Numarare triunghiuri | Scor | 20 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.5 kb |
var f,g:text;
n,i,nr:integer;
a:array[1..800] of integer;
procedure citire;
begin
assign(f,'nrtri.in');reset(f);
readln(f,n);
for i:=1 to n do
read(f,a[i]);
close(f);
end;
procedure fa;
var i,j,k:integer;
begin
nr:=0;
for i:=1 to n-1 do
for j:=i+1 to n-1 do
for k:=j+1 to n do
if (a[i]+a[j]>=a[k])and(a[i]+a[k]>=a[j])and(a[j]+a[k]>=a[i])
then inc(nr);
assign(g,'nrtri.out'); rewrite(g);
write(g,nr);
close(g)
end;
begin
citire;
fa;
end.