Решите пожалуйста через паскаль. Дан массив размера N. Вывести последний нечётный
Решите пожалуйста через паскаль. Дан массив размера N. Вывести заключительный нечётный элемент массива и его номер
Задать свой вопрос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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.