Программа на паскаль
Найти количество элементов массива целых чисел c(14), больших куба второго элемента массива этого массива. Если таких элементов нет выдать сообщение- поиск неудачен
Найти количество элементов массива целых чисел c(14), больших куба второго элемента массива этого массива. Если таких элементов нет выдать сообщение- поиск неудачен
More Questions From This User See All
Answers & Comments
//Внимание! Если программа не работает, обновите версию!
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.