Блок схему построить. Дан массив x размера n(n=10) целых чисел, содержащий как...

Question

Блок схему построить. Дан массив x размера n(n=10) целых
чисел, содержащий как положительные, так и отрицательные элементы. Упорядочить
массив следующим образом: сначала идут отрицательные числа, упорядоченные по
невозрастанию, потом положительные, упорядоченные по неубыванию.

Comments

Uses crt;const N=2;var a:array [1..N,1..N] of real; i,j,k:integer;begin k:=0; writeln('Введите матрицу:'); for i:=1 to N do for j:=1 to N do begin read(a[i,j]); if a[i,j]<0 then inc(k); end; if k>0 then writeln('В матрице отрицательный элемент') else for i:=1 to N do begin for j:=1 to N do write(a[j,i]:3:0); writeln; end;end.

Answer 1

Решение во вложении
-------------------------------------------

---