Сортировка положительных элементов методом прямого выбора .программа Паскаль Программа...

Question

Сортировка положительных элементов методом прямого выбора .программа Паскаль
Программа вот.
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.
Задача.сгенерируйте массив так, чтобы кроме положительных были нули и отрицательные

Answer 1

Доброе время суток. Так как у Вас написана программа - она работать не будет.
Чтобы сгенерировать положительные и отрицательные 
значения запишите  Random(-50,50);
участок программы сортировки я прикрепил в файле

---

Скачать вложение Текст (TXT)

Comments

Random() от двух аргументов присутствует далеко не во всех версиях Паскаля.

---

можно по - другому: if ((Random(20) mod 2) =0) then a[i]:=Random(50) else a[i]:= - Random(50);