Сортировка положительных элементов методом прямого выбора .программа Паскаль Программа вот. 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); участок программы сортировки я прикрепил в файле
Не нашли ответ?
Ответить на вопрос
Похожие вопросы