Составить в Паскале:
Составить программу которая подсчитает количество нечетных элементов массива состоящего из 15 целых чисел (желательно ещё составить блок-схему)

схему постараюсь отправить личным сообщением

Спасибо большое!

Жду

Чем можно заменить команду mod?

program myprogram;varx, i: integer;a: array [1..15] of integer;BEGINfor i:=1 to 15 do read(a[i]); // вводите числа массиваfor i:= 1 to 15 do if a[i] mod 2 <> 0 then x:=x+1;writeln(x);END.