Question

Pascal Ввести одномерный массив, состоящий из n элементов. Найти и вывести на экран номера четных элементов.

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ReadArrInteger('Введи элементы массива:', n);

 for var i := 0 to a.High do

   if a[i].IsEven then

     Print(i+1)

end.

Answer 2

                                             PascalABC.NET

begin

var mas := ReadArrInteger('Массив :',ReadInteger('n ='));

mas.Indices(x -> x.IsEven).Select(x -> x+1).Print('/');

end.

Answer 3

Хорошо! Я могу помочь вам с этой задачей на языке программирования Pascal. Вот пример кода, который выполняет то, что вы описали:

pascalCopy code
program FindEvenElements;

var
  n, i: Integer;
  arr: array of Integer;

begin
  Write('Введите количество элементов в массиве: ');
  ReadLn(n);

  SetLength(arr, n);

  WriteLn('Введите элементы массива:');
  for i := 0 to n - 1 do
  begin
    Write('arr[', i, '] = ');
    ReadLn(arr[i]);
  end;

  Write('Номера четных элементов: ');
  for i := 0 to n - 1 do
  begin
    if arr[i] mod 2 = 0 then
      Write(i, ' ');
  end;

  ReadLn;
end.

В этом примере программа запрашивает у пользователя количество элементов массива n, а затем последовательно запрашивает значения каждого элемента. Затем она выводит номера четных элементов на экран.

Надеюсь, это поможет! Если у вас возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать.