Вычислить количество нечётных элементов в массиве из 30 чисел

uses crt;
var a: array [1..30] of integer;
    i,k: integer;
begin
writeln('Дан массив');
for i:=1 to 30 do
    begin
    a[i]:=random(19)-9;
    if a[i] mod 2<>0 then inc(k);
    write (a[i],' ');
    end;
writeln;
writeln('Количество нечетных элементов ',k);
end.

inc(k); = k:=k+1;

uses crt;
var a: array [1..30] of integer;
    i,k: integer;
begin
k:=0;
writeln('Дан массив');
for i:=1 to 30 do
    begin
    write('Введите ',i,' элемент ');
    readln(a[i]);
    if a[i] mod 2<>0 then k:=k+1;
    end;
writeln;
writeln('Количество нечетных элементов ',k);
end.

uses crt;
var a: array [1..10] of integer;
    i,k,j,e: integer;
begin
k:=0;
writeln('Дан массив');
for i:=1 to 10 do
    begin
    write('Введите ',i,' элемент ');
    readln(a[i]);
    if a[i]<0 then
       begin
       k:=k+1;
       j:=i;
       e:=a[i];
       end;
    end;
if k<1 then writeln('Отрицательныq элемент не обнаружен ')
   else writeln('Отрицательный элемент ',e,' под номером ',j);
end.

uses crt;
var a: array [1..10] of integer;
    i,k: integer;
begin
k:=0;
writeln('Дан массив');
for i:=1 to 10 do
    begin
    write('Введите ',i,' элемент ');
    readln(a[i]);
    end;
writeln;
writeln('Отрицательные элементы ');
for i:=1 to 10 do
    if a[i]<0 then
    begin
    k:=k+1;
    writeln(a[i],' под номером ',i);
    end;
if k<1 then writeln('не обнаружены ');
end.

a[i]:=random(21)-10; 
write (a[i],' ')

var a: array [1..100] of integer;
    n,max,min,i: integer;
begin
write('Укажите размер массива ');
readln(n);
writeln('Дан массив');
for i:=1 to n do
    begin
    a[i]:=random(101)-50;
    write(a[i],' ');
    end;
writeln;
max:=a[1];
min:=a[1];
for i:=1 to n do
    begin
    if a[i]>max then max:=a[i];
    if a[i]<min then min:=a[i];
    end;
writeln('Полусумма мин и макс =',(min+max)/2:5:2);
readkey
end.