Найти количество нечетных или положительных элементов массива - Turbo Pascal
Формулировка задачи:
Дан массив из 12 целых чисел. Найти количество нечетных или положительных элементов массива.
Решение задачи: «Найти количество нечетных или положительных элементов массива»
textual
Листинг программы
a: array [1..12} of integer;
i,k : integer;
BEGIN
{Ввод массива}
k:=0;
For i:=1 to 12 do
If (a[i]>0) or (a[i] mod 2<> 0) then inc(k);
Writeln(k);
END.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д