Ответы на вопрос:
Var a: array[1..10000] of integer; x,y,z,i,n: integer; begin write('введите количество элементов массива: '); readln(n); writeln('введите элементы массива: '); x: =0; z: =0; y: =0; for i : = 1 to n do begin readln(a[i]); if (a[i])> 0 then x: =x+1 else if (a[i])=0 then z: =z+1 else y: =y+1; end; writeln('положительных элкментов масива: ', x); writeln('отрицательных элкментов масива: ', y); writeln('нулевых элкментов масива: ', z); end.
Популярно: Українська література
-
romab0708.07.2020 08:08
-
kirilnavrotskykiril23.01.2023 14:13
-
андрей100500ый19.04.2021 17:26
-
zlatasidorowa22.10.2020 23:36
-
nastyakramskay19.09.2022 17:31
-
kreatuv41kp06t4209.03.2023 06:14
-
Era38372707.09.2022 11:28
-
виктор23821.04.2020 09:55
-
Anonim22333206.05.2022 17:09
-
Зайчик346806.03.2020 00:18