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

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

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

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

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

[klem4]

1)

Код

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

Begin
  clrscr;
  m:=0;
  for i:=1 to n do
   begin
      readln(x[i]);
      if x[i] mod 2 = 0 then
       begin
          inc(m);
          y[m]:=x[i];
       end;
   end;
  writeln;
  if m=0 then
   writeln('NO')
    else

        for i:=1 to m do
         writeln(y[i]);
 readln;
end.

Поиск и FAQ вам помогут.

[klem4]

2) смотри тут, хочешь массивом, хочешь без (решение Volvo в самом низу): http://forum.pascalnet.ru/forum/index.php?showtopic=3824

см. Задача N1.
очень похожа

[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.