
Дан одномерный массив. Размерность массива N. Найти количество нулей, положительных и отрицательных
элементов. Заполнение массива осуществить с клавиатуры.

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

Ответ:
var
k1,k2,k3,i,n: integer;
a: array [1..100] of integer;
begin
write('n=');
readln(n);
k1:=0;k2:=0;k3:=0;
for i := 1 to n do
begin
write('a[i]:= ');
readln(a[i]);
end;
for i:=1 to n do
begin
if(a[i]<0) then k1:=k1+1 else
if(a[i]>0) then k2:=k2+1;
if(a[i]=0) then k3:=k3+1 else
end;
writeln('Otricatelnih= ',k1, ' polozhitelnih= ',k2, ' ravnih nulu= ',k3);
readln;
end.
Объяснение:
э



Вы можете написать программу на языке программирования, чтобы решить эту задачу. Вот пример на Python:
python# Запрашиваем размерность массива от пользователя
N = int(input("Введите размерность массива: "))
# Инициализируем счетчики для нулей, положительных и отрицательных элементов
count_zeroes = 0
count_positives = 0
count_negatives = 0
# Создаем пустой массив
array = []
# Заполняем массив элементами, вводимыми пользователем
for i in range(N):
num = float(input(f"Введите элемент {i + 1}: "))
array.append(num)
# Подсчитываем количество нулей, положительных и отрицательных элементов
for num in array:
if num == 0:
count_zeroes += 1
elif num > 0:
count_positives += 1
else:
count_negatives += 1
# Выводим результаты
print(f"Количество нулей: {count_zeroes}")
print(f"Количество положительных элементов: {count_positives}")
print(f"Количество отрицательных элементов: {count_negatives}")
Этот код сначала запрашивает у пользователя размерность массива (N), а затем заполняет массив элементами, которые пользователь вводит с клавиатуры. Затем программа подсчитывает количество нулей, положительных и отрицательных элементов в массиве и выводит результаты.


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili