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.

Answer 2

Создание массива из четных чисел последовательности

Для создания массива из четных чисел данной последовательности на языке Паскаль, мы можем использовать следующий алгоритм:

1. Создаем пустой массив, который будет содержать четные числа последовательности. 2. Проходим по каждому элементу последовательности. 3. Проверяем, является ли текущий элемент четным числом. 4. Если текущий элемент четный, добавляем его в массив. 5. По окончании прохода по всей последовательности, проверяем размер массива. 6. Если массив пустой, выводим сообщение о том, что в последовательности нет четных чисел. 7. Если массив не пустой, выводим его содержимое.

Вот пример кода на языке Пас#### Создание Массива Четных Чисел на Языке Паскаля

Для создания массива из четных чисел последовательности на языке Паскаля, можно использовать следующий код:

program EvenNumbersArray;

const
  n = 10; // Замените на нужное количество элементов в последовательности
var
  sequence: array[1..n] of integer;
  evenNumbers: array[1..n] of integer;
  i, j: integer;
begin
  // Инициализация последовательности (замените на ввод значений)
  sequence[1] := 3;
  sequence[2] := 6;
  sequence[3] := 8;
  sequence[4] := 5;
  sequence[5] := 10;
  sequence[6] := 12;
  sequence[7] := 7;
  sequence[8] := 4;
  sequence[9] := 9;
  sequence[10] := 11;

j := 1; // Индекс для заполнения массива четных чисел
  for i := 1 to n do
  begin
    if sequence[i] mod 2 = 0 then // Проверка на четность
    begin
      evenNumbers[j] := sequence[i]; // Добавление четного числа в массив четных чисел
      j := j + 1; // Увеличение индекса для следующего четного числа
    end;
  end;

if j = 1 then // Если не было найдено четных чисел
    writeln('В последовательности нет четных чисел')
  else
  begin
    writeln('Массив четных чисел:');
    for i := 1 to j - 1 do
      writeln(evenNumbers[i]); // Вывод массива четных чисел
  end;
end.

Этот код создает массив четных чисел из заданной последовательности и выводит его, либо сообщает, если в последовательности нет четных чисел.

Пример работы программы: ``` Массив четных чисел: 6 8 10 12 4 ```

Если у вас есть дополнительные вопросы или нужна помощь с чем-то еще, не стесняйтесь спрашивать!