Количество положительных элементов в массиве - Pascal
Формулировка задачи:
Составить программу подсчета
общего количества положительных
элементов в массивах A (8) и B (8).
Решение задачи: «Количество положительных элементов в массиве»
textual
Листинг программы
k:=0; for i:=1 to 8 do begin if a[i]>0 then inc(k); if b[i]>0 then inc(k); end;
Объяснение кода листинга программы
k
- счетчик положительных элементов массива, инициализируется нулем.i
- цикл идет от 1 до 8 (включительно), перебирает элементы массива.a[i]
- элемент массиваa
с индексомi
.b[i]
- элемент массиваb
с индексомi
.- Если
a[i]
больше нуля, то увеличиваем значениеk
на единицу. - Если
b[i]
больше нуля, то увеличиваем значениеk
на единицу. - Цикл завершается, когда все элементы массива перебраны.
- Значение
k
- количество положительных элементов в массивеa
иb
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д