Ответы на вопрос:
Var a: array[1..1000]of integer; i,k: integer; begin for i: =1 to 20 do a[i]: =random(20)-10; for i: =1 to 20 do write(a[i],' '); for i: =1 to 20 do begin if (a[i]< 0)and(a[i]> (-5)) then k: =k+1; end; writeln; writeln(k); end.
Популярно: Информатика
-
ТахминаЖамалдинова20.05.2020 23:58
-
Aikony28.09.2022 14:23
-
Ratatui34518.11.2022 18:35
-
ШАТАНТРУБА03.05.2021 13:47
-
rusibragimova906.07.2021 07:02
-
LJкрасотка200712.02.2023 00:09
-
кирилл212728.04.2022 14:23
-
w0mk02.05.2021 19:10
-
aodushkina824oya9o504.08.2020 18:02
-
DanilPak200223.04.2020 11:00