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

244

307

Посмотреть ответы 3

Ответы на вопрос:

gladiatorcor

Информатика

4,4(34 оценок)

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.

дарьякозырева

Информатика

4,6(1 оценок)

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

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.