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

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.