Надо составить программу. Дана последовательность натуральных чисел а1, а2, ... аn....

Question

Надо составить программу. Дана последовательность натуральных чисел а1, а2, ... аn. Создать массив из нечетных чисел этой последовательности если таких нет, выведите сообщение об этом факте. СРОЧНО НАДО СЕГОДНЯ((((

Answer 1

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.