Массивы

k:=0;
for i:=1 to n do
 if (a[i] mod 2=1) then
  begin
   write(a[i],' ');
  k:=k+1;
  end;
writeln('Количество элементов ',k);

program xerna;
uses crt;
const n=20;
var k,i,z:integer;
    a:array[1..n] of integer;
begin
k:=10;
for i:=1 to n do
 if (a[i] mod 2=1) then
  begin
   write(a[i],'  ');
  k:=k+1;
  writeln('Количество элементов ',k);
  end;
end.

program nechet;//названия программ читайте, у нас тут шутники
uses crt;
const n=20;
var k,i,z:integer;
    a:array[1..n] of integer;
begin
clrscr;
randomize;
writeln('Массив:');//надо сначала создать массив
for i:=1 to n do
 begin
   a[i]:=random(20);//например наполнить его случайными числами из инт. [0,20]
   write(a[i],' ');//выводим в строку через пробел
  end;
writeln;//на новую строку
writeln('Массив нечетных чисел:');
k:=0;//не 10, а 0, начало счета
for i:=1 to n do
 if (a[i] mod 2=1) then//если нечетное(остаток от деления на 2=1)
  begin
   write(a[i],'  ');//выводим
   k:=k+1;//считаем
  end; 
writeln;  
writeln('Количество элементов ',k);
readln
end.

program xerna;
uses crt;
const n=20;
var k,i,z:integer;
    a:array[1..n] of integer;
begin
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random(10);
      write(a[i],' ');
    end;
  writeln;
  k:=0;
  for i:=1 to n do
    if (a[i] mod 2=1) then
      begin
        write(a[i],'  ');
        k:=k+1;
      end;
  writeln('Количество элементо элементвов ',k);
  readln;
end.

for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
for i:=1 to n do
write(a[i],' ');
writeln;