Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const
- n = 5;
- var
- A: array[1..n] of integer;
- i, j, id_min: integer;
- min: integer;
- begin
- writeln('Введите массив');
- for i := 1 to n do
- readln(A[i]);
- min := A[1];
- j := 1;
- i := 1;
- for i := 1 to n - 1 do
- begin
- min := A[i];
- id_min := i;
- for j := (i + 1) to n do
- begin
- if A[j] < min then
- begin
- min := A[j];
- id_min := j;
- end;
- end;
- A[id_min] := A[i];
- A[i] := min;
- end;
- for j := 1 to n do
- write(A[j]:4);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement