Найти количество элементов массива целых чисел, больших квадрата первого элемента этого массива. если таких нет, выдать сообщение "поиск неудачен". паскаль

// PascalABC.NET 3.0, сборка 1076
begin
  var n:=ReadInteger('Число элементов массива=');
  var a:=ArrRandom(n,-25,25);
  Write('Исходный массив: '); a.Println;
  var k:=a.Where(x->sqr(x)>sqr(a[0])).Count;
  if k>0 then Writeln
    ('Найдено ',k,' элементов, квадрат которых больше квадрата первого')
  else Writeln
    ('Нет ни одного элемента, квадрат которого больше квадрата первого')
end.

Тестовое решение:
Число элементов массива=15
Исходный массив: 11 12 -11 -3 -16 -22 22 4 -4 -1 -16 -9 -19 4 16
Найдено 7 элементов, квадрат которых больше квадрата первого

Паровозы кажется могут толкать состав назад, ехать как задом так и передом и тп. Иначе я не знаю.

 

Первый поезд делится на (паровоз+10) и 11 вагонов.

И эту десятку паровоз тянет в тупичек.

Второй поезд проезжает тупичек.

Паровоз первого вытягивает свою десятку на свободный путь

Второй паровоз толкает свой состав так чтоб стать перед тупичком

Второй паровоз отцепляется и прицепляется к оставшимся 11 вагонам.

Второй паровоз задом запихивает 11 вагонов в тупичек

Второй паровоз берет свой состав и уезжает

Первый паровоз забирает свои 11 вагонов

для твоего образца.

function cat(name, age) {

this.excuses = ['пнх', 'схб' /*здесь можно написать отмазы ленивого кота*/];

this.name = name;

this.age = age;

this.прыжков = 0;

}

cat.prototype = {

sayhello: function () { console.log("hello! my name is " + this.name); },

jump: function (height) {

  if (this.прыжков > 3) console.log(this.excuses[math.random() * this.excuses.length | 0]);

  else console.log(height > this.age ? "nonono i'm too young. bro! " : "jump");

  this.прыжков++;

}

};