
Дан массив состоящий из 20 чисел. Найти количество положительных чисел


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

Ответ:
Язык Pascal
const n=11;
var a:array[1..n] of integer;
i,k,q:integer;
begin
writeln('Введите ',n,' элементов массива, целые числа');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln('Полученный массив');
for i:=1 to n do
write(a[i],' ');
writeln;
write('Введите число К для проверки кратности k=');
readln(k);
q:=0;
for i:=1 to n do
if (a[i]>0)and(a[i] mod k=0) then q:=q+1;
write('Количество положительных, кратных ',k,'=',q)
end.



Для решения этой задачи нам нужно просмотреть все элементы массива и подсчитать количество положительных чисел. Вот один из способов решения этой задачи на языке Python:
```python # Исходный массив array = [1, -2, 3, -4, 5, -6, 7, -8, 9, -10, 11, -12, 13, -14, 15, -16, 17, -18, 19, -20]
# Инициализируем переменную для подсчета количества положительных чисел count = 0
# Проходим по каждому элементу массива for num in array: # Если число больше нуля, увеличиваем счетчик if num > 0: count += 1
# Выводим результат print("Количество положительных чисел:", count) ```
В этом примере мы создаем массив `array`, состоящий из 20 чисел. Затем мы инициализируем переменную `count` для подсчета количества положительных чисел и проходим по каждому элементу массива. Если число больше нуля, мы увеличиваем счетчик `count`. В конце мы выводим результат.
Для данного массива, в котором положительными считаются числа больше нуля, количество положительных чисел будет равно 10.


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