, ,!Составить алгоритм, написать программу, которая заполняет массив из 20 данных случайными числами и делят его на два мас

Помогите, плиз, очень срочно!!!

Составить алгоритм, написать программу, которая заполняет массив из 20 данных случайными числами и делят его на два массива, в один помещает четные числа в другой нечетные. Вывести исходный массив, массив четных чисел и нечетных чисел.

 

Спасибо!

           c[l]:=a[i];

      k:=k-1;

      l:=1; 

      writeln;

      for i:=1 to 20 do

          inc(k);

      writeln ('Исходный массив: '); 

         begin

      readln;

      writeln ('Массив нечетных чисел');

      i,k,l:integer;

        if a[i] mod 2 = 0 then

         end else

      writeln ('Массив четных чисел');

      writeln;

      randomize;

      k:=1;

        a[i]:=random(9)+1;

      for i:=1 to l do write (c[i],' ');

      end;

           inc(l);

      l:=l-1; 

      writeln;

       begin

        write (a[i],' ');

          b[k]:=a[i];

    end.

      a,b,c:array [1..20] of integer;

    begin

          begin

          end; 

      for i:=1 to k do write (b[i],' ');

  • var