Question

Se dau n numere naturale. Să se determine ultimul număr par dintre cele date.

Answer 1

var a:array of integer;
i:byte;
n:integer;
begin
read(n);
setlength(a,n);
for i:=0 to n-1 do read(a[i]);
repeat
if (a[n-1] mod 2 = 0) then break;
n-=1;
until n=0;
if n=0 then writeln('Imposibil') else writeln(a[n-1]);
end.