Вопрос задан 18.06.2023 в 01:17. Предмет Информатика. Спрашивает Шиян Макс.

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

0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Амброс Илья.

Ответ:

Язык 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.

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Для решения этой задачи нам нужно просмотреть все элементы массива и подсчитать количество положительных чисел. Вот один из способов решения этой задачи на языке 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.

0 0

Похожие вопросы

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос