Цитата:
Сообщение от Sektor
да обязательно
|
Ладно. Вот вариант с подпрограммой:
CONST
N=8;
Max:INTEGER=100;
TYPE
AR=ARRAY[1..100] of INTEGER;
VAR
A,B:AR;
i:INTEGER;
PROCEDURE Search_Order(As:AR; Ns,MaxS:INTEGER; VAR Bs:AR);
VAR
Min,i,j,Jmin:INTEGER;
BEGIN
FOR i:=1 TO Ns DO
BEGIN
Min:=MaxS;
FOR j:=1 TO Ns DO
IF As[j]<Min THEN
BEGIN
Bs[i]:=As[j];
Jmin:=j;
Min:=As[j];
END;
As[Jmin]:=MaxS;
END;
END;
BEGIN
Randomize;
FOR i:=1 TO N DO
BEGIN
A[i]:=Random(Max)-(Max div 2);
Write(A[i]:4);
END;
Writeln;
Search_Order(A,N,Max,B);
FOR i:=1 TO N DO Write(B[i]:4);
Writeln;
Readln;
END.