Сортировка положительных элементов методом прямого выбора .программа Паскаль Программа вот. const n=20; var a:array[1..n] of integer; i,j,k,x:integer; begin Randomize; Writeln('Исходная последовательность'); for i:=1 to n...
Сортировка положительных элементов методом прямого выбора .программа Паскаль
Программа вот.
const
n=20;
var
a:array[1..n] of integer;
i,j,k,x:integer;
begin
Randomize;
Writeln('Исходная последовательность');
for i:=1 to n do begin a[i]:=Random(50)+1; Write(a[i]:3) end;
Writeln;
for i:=1 to n-1 do begin
k:=i; x:=a[i];
for j:=i+1 to n do
if a[j] a[k]:=a[i]; a[i]:=x
end;
Writeln('После сортировки');
for i:=1 to 20 do begin Write(a[i]:3) end;
Writeln
end.
Задача.сгенерируйте массив так, чтобы кроме положительных были нули и отрицательные
Гость
Ответ(ы) на вопрос:
ГостьДоброе время суток. Так как у Вас написана программа - она работать не будет.
Чтобы сгенерировать положительные и отрицательные
значения запишите Random(-50,50);
участок программы сортировки я прикрепил в файле
Не нашли ответ?
Похожие вопросы