Question

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

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