Программа ** паскаль Найти количество элементов массива целых чисел c(14), больших куба...

Question

Программа на паскаль
Найти количество элементов массива целых чисел c(14), больших куба второго элемента массива этого массива. Если таких элементов нет выдать сообщение- поиск неудачен

Answer 1

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

  var mas:=ArrRandom(14,-99,99); mas.Println;

  var a:=mas[1]**3; var b:=mas.Where(t-> t> a).Count;

  if b=0 then Writeln('поиск неудачен') else 

  Writeln('Таких элементов ->',b);

end.

---