Question

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


На языке Паскаль. Буду очень признательна

Answer 1

Program arr;

const

maxn=10;

var

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

N,i,j: integer;

begin

readln(N);

//заполнение массива

for i:=1 to N do

  read(a[i]);

//основная программа

for i:=1 to N do

   if a[i] mod 2 = 0 then

     begin

     j:=j+1;

     b[j]:=a[i];

  end;

for i:=1 to j do

write(b[i],' ');

end.

Answer 2

var

m:array [1..10000] of integer;

a,n,i,j:integer;

begin

 writeln('Введите n:');

 readln(n);

 j:=0;

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

 for i:=1 to n do

 begin

 readln(a);

 if (a mod 2)<>0 then begin j:=j+1; m[j]:=a; end;  

 end;

 if j=0 then writeln ('Нечетных чисел нет в данной последовательности.')

 else  

 begin

 writeln ('Нечетные числа в данной последовательности:');

 for i:=1 to j do

 write(m[i],' ');

 writeln;

 end;

end