Ответы на вопрос:
Const n = 90; var v: array[1..n] of integer; i, e, nn, np, nz: integer; begin randomize; nn : = 0; np : = 0; for i : = 1 to n do begin e : = random(25) - 12; v[i] : = e; if e > 0 then np : = np + 1 else if e < 0 then nn : = nn + 1; end; nz : = n - np - nn; writeln('число элементов в массиве: отрицательных- ', nn, ', нулевых- ', nz, ' положительных- ', np); end. тестовое решение: число элементов в массиве: отрицательных- 38, нулевых- 6 положительных- 46
Популярно: Информатика
-
neznaika16822.05.2021 22:11
-
bropomogi24.08.2021 04:36
-
Klimg03.07.2021 21:12
-
antonangel88p09szr13.08.2022 21:35
-
ktuj24010.09.2020 15:38
-
гена8123.02.2021 18:48
-
kirill05525.02.2021 10:59
-
РУСЛАН11322804.06.2021 09:24
-
Keonaks26.12.2020 20:01
-
sadovinaviktoriay12.06.2023 11:27