Найти пять наибольших элементов одномерного массива целых чисел.

[Serega-ru]

Найти пять наибольших элементов одномерного массива целых чисел.

[Mad_Cat]

упорядочить по убыванию и забрать 5 первых)

[Joker_vad]

program lab;
uses crt;
label m1;
var
mas:array [1..100] of integer;
i,n,y:integer;
flag:boolean;
begin
clrscr;
write('Введите размерность массива:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(mas[i]);
end;
m1:flag:=false;
for i:=2 to n do begin
if mas[i]>mas[i-1] then begin
y:=mas[i];
mas[i]:=mas[i-1];
mas[i-1]:=y;
flag:=true;
end;
if flag then goto m1;
end;
writeln;
writeln;
for i:=1 to 5 do
writeln('a[',i,']=',mas[i]);
readkey;
end.