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

Question

Информатика

Иннушка

12 марта, 11:45

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

+2

Ответы (1)

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

Арюша · Answer 1

Var mas:array[1 ... 15] of integer;

i, j, a:integer;

begin

for i:=1 to 15 do read (mas[i]) ; / / вводится через пробел

for i:=1 to 14 do

for j:=i+1 to 15 do

begin

if (mas[j]>mas[i]) then

begin

a:=mas[j];

mas[j]:=mas[i];

mas[i]:=a;

end;

end;

for i:=1 to 15 do write (mas[i],' ') ; / / вывод

end.