Паскаль. Ввести массив a1, a2, ..., a15. Расположить ненулевые элементы по возрастанию.

Массив вводится с клавиатуры через пробел 15 элементов

var

a:array[1 ... 15]of integer;

i, j, buf:integer;

begin

for i:=1 to 15 do

read (a[i]) ;

for i:=1 to 14 do

for j:=i+1 to 15 do

if (a[i]0) and (a[j]0) then

if a[i]>a[j]then

begin

buf:=a[i];

a[i]:=a[j];

a[j]:=buf;

end;

writeln;

for i:=1 to 15 do

write (a[i]:4) ;

end.