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