ТутРешу.Ру

Дан массив Аn определить количество нечетных элементов массива…

Задание:

Дан массив Аn определить количество нечетных элементов массива, стоящих на четных местах вывести на экран исходный массив и найденное количество

Решение:

const n=15; var a: array[1… n] of integer; i, count: integer; begin for i: =1 to n do begin a[i]: =random (100); write (a[i], '); if (i mod 2=0) and (a[i] mod 2 <> 0) then inc (count); end; writeln; writeln ('[', count, ']'); end.




Знаете другой ответ?

Отправить свой ответ