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.