Напишите программу, которая сортирует массив целых чисел в порядку убывания
и определяет есть ли в нём число равное 33. Массив
заполняется случайными числами от 0 до 50. Количество элементов массива 30.
pascal
Ответы
Ответ дал:
0
// 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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад