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

1
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.

Ответы и объяснения

  • Sky09
  • профессор
2013-12-07T22:00:01+00:00
Решение во вложении
-------------------------------------------