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

Question

Информатика

Лаврич

6 февраля, 17:14

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

+5

Ответы (1)

Знаете ответ на вопрос?

Антониныч · Answer 1

Массив вводится с клавиатуры через пробел 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.