Question

Решите пожалуйста через паскаль. Дан массив размера N. Вывести последний нечётный элемент массива и его номер

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 var i := a.IndexesOf(t -> t.IsOdd).Last;

 Writeln('a[', i + 1, ']=', a[i])

end.

n= 13

-6 -22 32 23 23 12 -49 4 -47 40 -28 -50 -36

a[9]=-47

Answer 2

var a:array of integer;

i,n,z,k:integer;

begin

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

read (n);

a:=new integer[n];

for i:=0 to n-1 do a[i]:=random(89)+1;

z:=a[0];

k:=0;

for i:=0 to n-1 do if a[i] mod 2 <> 0 then

begin

z:=a[i];

k:=i;

end;

writeln ('Массив: ',a);

write ('Последний нечётный элемент массива ',z,' и его номер ',k)

end.

Answer 3

К сожалению, я не могу напрямую выполнить код на языке Паскаль, так как языки программирования не поддерживаются в этой текстовой среде. Однако я могу предоставить вам алгоритм на Паскале для решения вашей задачи. Вы можете скопировать его и выполнить в своей среде разработки на Паскале.

pascalCopy code
program FindLastOddElement;

const
  N = 10; // Здесь указываете размер массива N

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

begin
  // Заполнение массива данными (ваш способ или случайные числа)
  // Пример заполнения массива случайными числами от 1 до 100:
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100) + 1;

  lastOddElement := -1; // Инициализация значения последнего нечетного элемента
  lastOddElementIndex := -1; // Инициализация индекса последнего нечетного элемента

  // Поиск последнего нечетного элемента и его индекса
  for i := 1 to N do
  begin
    if arr[i] mod 2 <> 0 then
    begin
      lastOddElement := arr[i];
      lastOddElementIndex := i;
    end;
  end;

  // Вывод результата
  if lastOddElementIndex <> -1 then
    WriteLn('Последний нечетный элемент массива: ', lastOddElement, ' с номером ', lastOddElementIndex)
  else
    WriteLn('В массиве нет нечетных элементов.');
end.

Здесь программа инициализирует массив arr размера N, заполняет его случайными числами (вы можете изменить заполнение на свой выбор), затем ищет последний нечетный элемент и выводит его значение и индекс, если такой элемент был найден. Если в массиве нет нечетных элементов, программа сообщит об этом.