program kivalasztas_utolso;
const n = 10;
var a:array [1..n] of integer;
i, sorsz: integer;
begin
randomize;
//a tömb elkészítése
for i:=1 to n do
begin
a[i]:=random(8);
write(a[i], ' ');
end;
writeln;
//mi az utolsó 5-ös sorszáma?
for i:=1 to n do
if a[i]=5 then
sorsz:= i;
write('Az utolso 5-os elem sorszama: ', sorsz);
readln;
end.
cHJvZ3JhbSBraXZhbGFzenRhc191dG9sc287CmNvbnN0IG4gPSAxMDsKdmFyIGE6YXJyYXkgWzEuLm5dIG9mIGludGVnZXI7CiAgICBpLCBzb3JzejogaW50ZWdlcjsKYmVnaW4KICByYW5kb21pemU7CiAgLy9hIHTDtm1iIGVsa8Opc3rDrXTDqXNlCiAgZm9yIGk6PTEgdG8gbiBkbwogIGJlZ2luCiAgICBhW2ldOj1yYW5kb20oOCk7CiAgICB3cml0ZShhW2ldLCAnICcpOwogIGVuZDsKICB3cml0ZWxuOwogIC8vbWkgYXogdXRvbHPDsyA1LcO2cyBzb3JzesOhbWE/CiAgZm9yIGk6PTEgdG8gbiBkbwogICAgaWYgYVtpXT01IHRoZW4KICAgICAgc29yc3o6PSBpOwogIHdyaXRlKCdBeiB1dG9sc28gNS1vcyBlbGVtIHNvcnN6YW1hOiAnLCBzb3Jzeik7CiAgcmVhZGxuOwplbmQu