Дана последовательность целых чисел а1, а2, а3,...,аn. Создать массив из четных чисел...

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.

Comments

if j>0 then for i:=1 to j do write(b[i],' ')else write('Чётных чисел нет.');end.Это в конце добавишь вместо 3 последних строк.

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