FAQ Autentificare
Cautare Profil
Membri Grupuri
Mesaje private
Inregistrare
Problema 19
Creaza un subiect nou   Raspunde la subiect
Pagina de start a forumului Atestat 2008 Iaşi » Pascal » Problema 19
Subiectul anterior :: Subiectul urmator  
Autor Mesaj
oClasaAnonima
Megaelev
oClasaAnonima

Data inscrierii: 11/Apr/2008
Mesaje: 29

 Mesaj Trimis: 13.04.2008 14:16    Titlul subiectului: Problema 19
Raspunde cu citat (quote)

Cod:
{19. se citeste de la tastatura n, si apoi n perechi de cate 2 nr intregi a si b
(a<0<b) numere ce reprezinta capetele unor intervale inchise. afisati pe ecran,
doua numere x si y ce reprezinta capetele intervalului intersectie al celor n
intervale date}
program ex19;
var i,n, a, b, max, min:integer;
begin
write('n: '); readln(n);
max:=-maxint;
min:=maxint;
for i:=1 to n do begin
                 write('a: '); readln(a);
                 write('b: '); readln(b);
                 if a>max then max:=a;
                 if b<min then min:=b;
                 end;
write('[',max,',',min,']');
end.
 Sus »
Vezi profilul utilizatorului Trimite mesaj privat
Afiseaza mesajele pentru a le previzualiza:   
Pagina de start a forumului Atestat 2008 Iaşi » Pascal » Problema 19
Creaza un subiect nou   Raspunde la subiect Ora este GMT + 2 ore
Pagina 1 din 1

 
Mergi direct la:  
Nu puteti crea un subiect nou in acest forum
Nu puteti raspunde in subiectele acestui forum
Nu puteti modifica mesajele proprii din acest forum
Nu puteti sterge mesajele proprii din acest forum
Nu puteti vota in chestionarele din acest forum



Powered by phpBB © 2001, 2002 phpBB Group
Fa-ti si tu propriul forum GRATUIT, pe www.myforum.ro