Ответы на вопрос:
var i,min: integer; a: array[1..10] of integer; begin randomize; for i: =1 to 10 do begin a[i]: =random(45)-22; write(a[i],' '); end; writeln; for i: =1 to 10 do begin if a[i]< 0 then min: = min+1; end; writeln('количество отрицательных элементов: ',min); end.
Популярно: Информатика
-
lubvic7726.10.2022 17:43
-
Vileta070901.10.2021 20:45
-
aidarbI412314.01.2021 19:22
-
бомба1568220.04.2022 18:11
-
mereizunusova17.04.2023 03:29
-
Lenokin8831.01.2022 02:06
-
Ника351510.02.2021 00:12
-
Theknopa44422.01.2021 21:25
-
olga00006427.02.2023 23:17
-
goldlena197905.09.2020 21:46