Question

Дан одномерный массив целых чисел. Выбрать из массива все числа больше заданного числа k и упорядочить их по убыванию. Программа должна быть на Pascal

Answer 1

var m,a:array [-100..100] of integer;

n,j,i,k,count:integer;

begin

write('введите сколько необходимо чисел: ');

read(n);

write('число к: ');

read(k);

//осуществим ввод n элементов и отсортируем по условию в другой массив а

for i:=1 to n do begin

 read(m[i]);

if m[i]>k then begin

 inc(count);

 a[count]:=m[i];

 end;

end;

//отсортируем этот массив пузырьковым методом  

for i:=1 to count-1 do begin

 for j:=1 to count-i do

   if a[j] < a[j+1] then

     swap(a[j],a[j+1]);

  end;

//выводим уже отсортированный массив чисел > к

  for i:=1 to count do

    write(a[i],' ');

end.