Дан массив а(к).из элементов массива а сформировать массив в таким образом: сначала поместить все отрицательные массивы элемента а,потом равные нулю,а положительные в конце.

Program main; var a, b: array [1..100] of integer; k, n, i: byte; begin i: =1; readln (n); for k: =1 to n do readln(a[k]); for k: =1 to n do if a[k]< 0 then begin b[i]: =a[k]; i: =i+1; end; for k: =1 to n do if a[k]=0 then begin b[i]: =a[k]; i: =i+1; end; for k: =1 to n do if a[k]> 0 then begin b[i]: =a[k]; i: =i+1; end; for i: =1 to n do writeln (b[i]); readln; end.

в простом варианте:

 

const nn=50; var i,n,j: integer; a,b: array [1..nn] of integer;   beginwrite('введите количество элементов массива: '); readln(n); for i: =1 to n do readln(a[i]); j: =1; for i: =1 to n do if a[i]< 0 then begin b[j]: =a[i]; j: =j+1; end; for i: =1 to n do if a[i]=0 then begin b[j]: =a[i]; j: =j+1; end; for i: =1 to n do if a[i]> 0 then begin b[j]: =a[i]; j: =j+1; end; for i: =1 to n do write(b[i],' '); end.

 

Дана матрица размера M × N. Преобразовать матрицу, поменяв

местами минимальный и максимальный элемент в каждой строке.

Дана матрица размера M × N. Поменять местами строки, содержа-

щие минимальный и максимальный элементы матрицы.

Дана матрица размера M × N. Поменять местами столбец с номером 1 и последний из столбцов, содержащих только положительные элементы. Если требуемых столбцов нет, то вывести матрицу без изменений не очень большие задачи