Регистрация
МиллкаВах
18.11.2022 14:07
Информатика
Есть ответ 👍

Дан массив из чисел n.определить каких элементов в массиве больше: отрицательных или положительных

225
299
Посмотреть ответы 2

Ответы на вопрос:

Smazi
Smazi
4,6(60 оценок)
Var a: array[1..1000] of real; i,n,ko,kp: integer; begin write('введите количество элементов массива n= '); readln(n); for i: =1 to n   do read (a[i]); for i: =1 to n   do write(a[i],' '); ko: =0; kp: =0; for i: =1 to n do if a[i]> 0 then kp: =kp+1 else if a[i]< 0 then ko: =ko+1; if ko> kp then writeln ('отрицательных элементов больше чем положительных') else if ko< kp then writeln ('положительных  элементов больше чем отрицательных') else writeln ('количество положительных и отрицательных элементов равны'); end.
Кндр15
Кндр15
4,7(59 оценок)
Получилось так,не красиво,но пойдет.не помню как выравнивать результат

Популярно: Информатика