sortare.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 20 行

program sortare;
{sa se sorteze un sir de nr. dat de la tastatura folosind o procedura .}
var a:array[1..100] of integer;
    i,n:integer;
procedure sort;
begin
if a[3]=0 then write('sortarea nu este posibila deoarece vectorul nu are decat doua elemente ')
          else writeln(a[3]);
end;
begin
read(n);
for i:=1 to n do
              begin
                   write('a[',i,']= ');
                   readln(a[i]);
              end;
writeln('folosind un procedeu de sortare gasim nr. :');
sort;
end.