//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.
Написали бы на каком языке программирования Вам нужно. Вот на java ^_^
<span>import java.io.BufferedReader<span>;
</span>import java.io.InputStreamReader<span>;
</span>
public class prog {
public static void main(String[] args) throws Exception{
BufferedReader reader = new BufferedReader(new InputStreamReader(System.in))<span>;
</span> while(true) {
int a = Integer.parseInt(reader.readLine())<span>;
</span> if(a%3==0){
System.out.println("Делится")<span>;
</span> }
else{
System.out.println("Не делится")<span>;
</span> }
}
}
}</span>
11 строка не стоит точка с запятой