Сортировка выбором

@borlogg · Регистрация: 15.02.2014

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

ПОМОГИТЕ,ПОЖАЛУЙСТА!!!!

Сортировка выбором!!!!

Новичок · 02.03.2014, 23:22

Pascal

var a:array[1..100] of Integer;
i,j,n,min,t:Integer;
begin
Write('Количество элементов:');
Read(n);
Writeln('Исходный массив:');
Randomize;
 
for i:=1 to n do
 begin
 a[i]:=Random(51)-25;
 Write(a[i],' ');
 end;
Writeln;
 
for i:=1 to n do
 begin
 min:=i;
  for j:=i+1 to n do 
   if a[j]<a[min] then min:=j;
 t:=a[i];
 a[i]:=a[min];
 a[min]:=t;
 end;
 
Writeln('Полученный вектор:');
 
for i:=1 to n do Write(a[i],' ');
 
Writeln;
Readln;
end.

@borlogg · 02.03.2014, 23:26 **[ТС]**

Спасибо!А можно так сделать, чтобы самому вводить цифры?

Новичок · 02.03.2014, 23:29

Если вы просите ручной ввод массива, то вот так.

Pascal

var a:array[1..100] of Integer;
i,j,n,min,t:Integer;
begin
Write('Количество элементов:');
Read(n);
Writeln('Введите элементы массива, ',n,' целых чисел:');
for i:=1 to n do Read(a[i]);
Writeln('Исходный массив:');
for i:=1 to n do Write(a[i],' ');
Writeln;
 
for i:=1 to n do
 begin
 min:=i;
  for j:=i+1 to n do 
   if a[j]<a[min] then min:=j;
 t:=a[i];
 a[i]:=a[min];
 a[min]:=t;
 end;
 
Writeln('Полученный вектор:');
 
for i:=1 to n do Write(a[i],' ');
 
Writeln;
Readln;
end.

Сортировка выбором

Решение

Решение

@borlogg 0 / 0 / 0 Регистрация: 15.02.2014 Сообщений: 90
		1
	Сортировка выбором 02.03.2014, 21:24. Показов 1849. Ответов 3 Метки нет (Все метки) ПОМОГИТЕ,ПОЖАЛУЙСТА!!!! Сортировка выбором!!!! Миниатюры 0

@borlogg 0 / 0 / 0 Регистрация: 15.02.2014 Сообщений: 90
	02.03.2014, 23:26 [ТС]	3
	Спасибо!А можно так сделать, чтобы самому вводить цифры? 0

	02.03.2014, 23:29