Question

Напишите программу, которая сортирует массив целых чисел в порядку убывания

и определяет есть ли в нём число равное 33. Массив

заполняется случайными числами от 0 до 50. Количество элементов массива 30.
pascal

Answer 1

// PascalABC.NET

begin

 var k := 30;

 var a := ArrRandom(k, 0, 50);

 a := a.SortedDescending.ToArray;

 a.Println;

 var i := 0;

 while (i <= k - 1) and (a[i] >= 33) do

 begin

   if a[i] = 33 then

     break;

   i += 1;

 end;  

 if a[i] = 33 then

   Print('33 есть')

 else

   Print('33 нет')  

end.