процедуры

[shelest]

Все чётные элементы массива K(n) поместить в массив L(n) а нечетные в массив M(n), подсчитать количество тех и других.

 program pr4_16;

{$APPTYPE CONSOLE}
    var chetn,nechetn,i,n,m:integer;
    M1:array [1..100] of integer;
    L:array [1..100] of integer;
Type K=array [1..100] of integer;
 var mas:k;
 procedure vvod (var m:K; n:integer);
 begin
   for i:=1 to n do
   readln (m[i]);
end;
procedure vvod2 (var m:K; n:integer);
begin
  randomize;
  for i:=1 to n do
  m[i]:=1+random(11);
end;
begin
chetn:=0;
nechetn:=0;
writeln ('vvedite kolichestvo elementov massiva ');
readln (n);
begin
writeln ('vvedi 1 esli vvod sluchaen, 0 esli vvod s klaviatury');
readln (m);
if m=1 then
vvod2 (mas,n);
if m=0  then
vvod (mas,n);
for i:=1 to n do
write (mas[i]:3);
writeln;
end;
for i:=1 to n do
begin
if mas[i] mod (2)=0 then
begin
chetn:=chetn+1;
L[chetn]:=mas[i];
end;
if mas[i] Mod 2=1 then
begin
nechetn:=nechetn+1;
M1[nechetn]:=mas[i];
end;
end;
writeln ( 'chetn=' , chetn);
for i:=1 to chetn do Write(L[i]:3);
writeln;
writeln ( 'nechetn=' , nechetn);
for i:=1 to nechetn do Write(M1[i]:3);
readln
end.

как сделать подсчёт четных и нечетных элементов с помощью процедур?

[dr.Chas]

function asd(sdf: k):word;
begin
  chetn:=0; nechetn:=0;
  for i:=1 to n do
  begin
    if (sdf[i] mod 2=0) then
    begin
      inc(chetn);
      L[chetn]:=sdf[i];
    end else begin
      inc(nechetn);
      M1[nechetn]:=sdf[i];
    end;
  end;
end;

И ещё всё таки не плохо было бы придерживатся оформления кода какого то. И когда вы пишите:

if mas[i] mod (2)=0 then
begin
chetn:=chetn+1;
L[chetn]:=mas[i];
end;
if mas[i] Mod 2=1 then
begin
nechetn:=nechetn+1;
M1[nechetn]:=mas[i];
end;

Можно написать просто else и этого будет достаточно. Как написано у меня.