Найти количество элементов массива целых чисел, больших квадрата первого элемента этого массива. Если таких нет, выдать сообщение "поиск неудачен". Паскаль
// 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 элементов, квадрат которых больше квадрата первого
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
