последовательность чисел Опции

[Гость_Роман]

1 Дана последовательность натуральных чисел а1,а2,... ,аn. Создать массив из чётных чисел Этой последовательности. Если таких чисел нет, то вывести сообщение об этом факте.

2 Последовательность действительных чисел оканчивается нулём. Найти количество членов этой последовательности.

3 Дана последовательность чисел а1,а2,... ,аn. Указать наименьшую длину числовой оси,
содержащую все эти числа.

[klem4]

3) не очень понял уловие.

Код

uses crt;
const n=5;
var x:array[1..n] of integer;
   min,max:integer;
   i:integer;

Begin
  clrscr;
  for i:=1 to n do
   readln(x[i]);
  min:=1;
  max:=1;
  for i:=2 to n do
   begin
      if x[i]>x[max] then
       max:=i;
      if x[i]<x[min] then min:=i;
   end;

  writeln('Otrezok ot ',x[min],' do ',x[max]);
  writeln('Ego dlinna = ',x[max]-x[min]);
  readln;
end.