Среди 20 введёных чисел определить чётные, распечатать их, определить min

[Spade]

Не очень сложная программка, нужно следующее:
Среди 20 введёных чисел определить чётные, распечатать их, определить min
Прошу народ...очень надо...жду ваши ответы...

[puporev]

Четные if a[i] mod 2=0 then
Минимальное if a[i]<min then min:=a[i]

[Spade]

Блин, а вам не сложно полностью написать всю программку...а то у меня совсем затык

[dee_lv]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a: array[0..19] of integer;
  i,min: integer;

begin
  writeln('Ishodniy massiv:');
  for i:=low(a) to high(a) do
   begin
    randomize;
    a[i]:=random(99);
    write(a[i]:3);
   end;
  writeln; writeln;
  
  writeln('Chetnie elementi:');
  for i:=low(a) to high(a) do
   begin
    if a[i] mod 2=0 then write(a[i]:3);
   end;

   min:=a[0];
   for i:=low(a) to high(a) do
    begin
      if a[i]<min then
      min:=a[i];
    end;

  writeln; writeln;
  write('Minimum: '+IntToStr(min));

  readln;
end.

[Spade]

Спасибо