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

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

Задать свой вопрос
2 ответа

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

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

begin

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

 a.Println;

 var i := a.IndexesOf(t -gt; 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

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 lt;gt; 0 then

begin

z:=a[i];

k:=i;

end;

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

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

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт