Question

Помогитеееееееееееее, с помощью Pascal

Answer 1

var a:array[1..100] of integer;

n,i,k:integer;

begin

readln(n);

for i:=1 to n do

    read(a[i]);

for i:=1 to n do

    if a[i] mod 2<>0 then

         begin

             k:=k+1;

             write(a[i],' ');

          end;

writeln;

writeln(k);

end.