Найти количество нечетных или положительных элементов массива - Turbo Pascal

Формулировка задачи:

Дан массив из 12 целых чисел. Найти количество нечетных или положительных элементов массива.

Код к задаче: «Найти количество нечетных или положительных элементов массива - Turbo Pascal»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 4.364 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы