In fisierul ''date.in'', pe primul rand se afla un numar natural mai mic decat 50 iar pe al doilea rand n numere intregi mai mici decat 30000. Scrieti un program care citeste elementele sirului, ordoneaza crescator elementele sirului si le afiseaza in ordine crescatoare in fisierul ''date.out''.

Var V:Array [1..30000] of integer;
n, i: integer;
f, g: text;
Begin
Assign (f,'date.in');
Reset (f);
Vreau si eu continuarea de aici incolo :)

1
Mă rog, nu sunt aici să-mi dau părerea despre un limbaj pe care nici nu l-am întâlnit :))
Adică eu sunt „antrenat” pe C++, mai ales cu concursurile (am olimpiada județeană sâmbătă :)) )
Mă întreb o chestie: Este posibil ca în Pascal să ai un string (variabilă text) cu lungimea peste 255? :))
probabil ca da
(am înțeles că string-urile în Pascal sunt un octet care dau lungimea (0-255) și apoi textul în sine; În C/C++/C# și alte derivate, string-ul este textul urmat de caracterul NULL (valoarea 0) )

Răspunsuri

2014-02-24T22:07:34+02:00
Var V:Array [1..30000] of integer;
      n, i: integer;
      f, g: text;
Begin
Assign (f,'date.in');
Reset (f);
1269 Enter space + alt + 3
Num Lock + Page Up
Home + Insert  +    End

Sper ca te-am ajutat !