Ответы на вопрос:
program pr1; uses crt; var mas: array[1..10] of real; i,n,b: integer; beginclrscr; readln(n); for i: =1 to n do readln(mas[i]); for i: =1 to n do if (mas[i]< 0) and (frac(mas[i])< > 0) and (sqr(mas[i])> 100) then b: =b+1; if b> 0 then writeln('элементы найдены')else writeln('элементы не найдены'); end.
Популярно: Информатика
-
даша281609.08.2022 08:34
-
KSEN01221.03.2020 17:07
-
zhikinemil2619.01.2021 06:59
-
utochkins0429.03.2021 12:34
-
Vspichka22.03.2022 09:23
-
colins198715.02.2020 05:47
-
radovdima22.12.2021 06:31
-
Полина11200624.08.2020 19:16
-
badmaks0011.07.2022 00:06
-
Catco11101.07.2022 18:38