Question

составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран последний элемент с нечетным значением и его индекс
Pascal ABC

Answer 1

var a:array[1..10] of integer;
i, ind:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(11); write (a[i],' ');   end;f
or i:=1 to 10 do
if a[i] mod  2 = 1   then ind:=i;
writeln;
write ('Последний нечетный элемент под номером ',ind);
end.