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

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

Виктор Лазьков 2019-08-27 21:29:28

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.