Question

В линейном целоническом массиве найти все честные элементы и их порядковые номера. Паскаль

Answer 1

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

begin

 var n := ReadInteger('Число элементов:');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a.Indices(p -> p.IsEven).Select(p -> p + 1).Print

end.

Answer 2

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

pascalCopy code
program FindHonestElements;

const
  N = 10; // Размер массива

var
  arr: array[1..N] of Integer;
  i: Integer;

procedure FindHonestElements;
var
  i: Integer;
begin
  writeln('Честные элементы в массиве:');
  for i := 1 to N do
  begin
    if arr[i] mod i = 0 then // Проверка честности элемента
    begin
      writeln('Порядковый номер: ', i);
      writeln('Значение элемента: ', arr[i]);
    end;
  end;
end;

begin
  // Ввод значений массива (в данном примере значения вводятся вручную, но можно изменить на ввод с клавиатуры)
  writeln('Введите ', N, ' элементов массива:');
  for i := 1 to N do
    readln(arr[i]);

  FindHonestElements; // Вызов процедуры для нахождения честных элементов

  readln;
end.

Обратите внимание, что в этом примере массив имеет размер N = 10, но вы можете изменить его значение в зависимости от своих потребностей. Также, значения элементов массива вводятся в примере вручную, но вы можете изменить этот код для чтения значений с клавиатуры или загрузки массива из файла.