Question

Дана последовательность натуральных чисел a1,a2,...,an. Создать массив из четных чисел этой последовательности.Если таких чисел нет то, вывести сообщение об этом факте
Можно на языке Паскаля

Answer 1

const

 maxsize = 100;

var

 i, n, temp: integer;

 a: array[1..maxsize] of integer;

begin

 i := 1;

 write('Введите количество элементов последовательности: ');

 read(n);

 writeln('Вводите элементы последовательности:');

 while (n > 0) do begin

   read(temp);

   if temp mod 2 = 0 then begin

     a[i] := temp;

     i := i + 1;

   end;

   n := n - 1;

 end;

 n := i - 1;

 if n = 0 then  

   writeln('В последовательности нет чётных элементов')

 else begin

   writeln('Массив из чётных элементов последовательности:');

   for i := 1 to n do

     write(a[i]:4);

 end

end.