Question

Дан одномерный массив целых чисел М(12), определить количество и сумму нечетных чисел в массиве. Вывести результат и массив М.

Срочно нужна помощь!!!!!!

Answer 1

uses crt;
const n=12;
var m:array[1..n] of integer;
k,s,i:integer;
begin
randomize;
for i:=1 to n do
begin
m[i]:=random(9)+1;
writeln(m[i]);
if m[i] mod 2<>0 then begin inc(k); s:=s+m[i]; end;
end;
writeln;
writeln(k);
writeln(s);
end.