oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
 Trimis: 13.04.2008 13:48 Titlul subiectului: Problema 07 |
|
|
| Cod: |
{7. fisierul unu.in contine pe primul rand valoarea n (2<=n<=1000000), iar pe
a doua linie n numere intregi formate din cel mult 9 cifre si despartite prin
spatiu. stiind ca fisierul contine cel putin doua numere distincte printre
cele n de pe a doua linie, scrieti un program care sa scrie in fisierul unu.out
pe o singura linie si separate printr-un spatiu, in ordine descrescatoare, cele
mai mari doua val distincte din fisierul de intrare. alegeti o metoda eficienta
de rezolvare atat ca timp de executare cat si ca gestionare a memoriei}
program ex7;
var f,g:text;
max1, max2, n, i, a:integer;
begin
assign(f,'unu.in'); reset(f);
assign(g,'unu.out'); rewrite(g);
readln(f,n);
max1:=-maxint;
for i:=1 to n do begin
read (a);
if a>max1 then begin
max2:=max1;
max1:=a;
end;
end;
write(g,max1,' ',max2);
close(f);
close(g);
end.
|
|
|
