Предмет: Информатика,
автор: mrdelion11
Паскаль.Ввести массив a1,a2,....,a15.Расположить ненулевые элементы по возрастанию.
Ответы
Автор ответа:
0
массив вводится с клавиатуры через пробел 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.
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.
Похожие вопросы
Предмет: Алгебра,
автор: yliasychova
Предмет: Українська література,
автор: Аноним
Предмет: Українська мова,
автор: Аноним
Предмет: Физика,
автор: alibek2