Отсортировать одномерный массив из 20 целых чисел, заданный случайным образом

@Wova26 · Регистрация: 02.11.2015

Студворк — интернет-сервис помощи студентам

Отсортировать одномерный массив из 20 целых чисел, заданный случайным образом, метод выборки.

@Hitoku · 10.04.2017, 12:01

Сделал по возрастанию

Pascal

const n=20;
type mas = array [1..n] of integer;
procedure viv(a:mas);
var i:byte;
begin
  for i:=1 to n do write(a[i],' ');
  writeln;
end;
var
  a:mas;
  x:integer;
  i,j,mi:byte;
begin
  randomize;
  for i:=1 to n do a[i]:=random(40)-20;
  viv(a);
  for i:=1 to n-1 do begin
    mi:=i;
    for j:=i+1 to n do 
      if a[j]<=a[mi] then mi:=j;
    if mi<>i then begin
      x:=a[i];  a[i]:=a[mi];  a[mi]:=x;
    end;
  end;
  viv(a);
end.

@Wova26 0 / 0 / 0 Регистрация: 02.11.2015 Сообщений: 11
		1
	Отсортировать одномерный массив из 20 целых чисел, заданный случайным образом 10.04.2017, 11:45. Показов 2259. Ответов 1 Метки нет (Все метки) Отсортировать одномерный массив из 20 целых чисел, заданный случайным образом, метод выборки. 0

Опции темы

Отсортировать одномерный массив из 20 целых чисел, заданный случайным образом

Решение