Question

1. Să se afișeze elementele pare care se găsesc într-un șir de numere naturale precum și poziția pe care se află acestea în cadrul șirului.

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]);
for i:=0 to n-1 do begin
if (a[i] mod 2 = 0) then writeln('Numarul: ',a[i],' Pozitia: ',i+1);
end;
end.