program kivalogatas; const n=8; var i,j : integer; a,b: array [1..n] of integer; begin writeln('Kerem a tomb elemeit: '); for i:=1 to n do begin write('a[',i,'] = '); readln(a[i]); end; j:=0; for i:=1 to n do //a T tulajdonsag: a tomb egyik eleme egyenlõ 5-tel if a[i]=5 then begin inc(j); b[j]:=i; end; write('Az 5-os sorszamai a kovetkezok: '); for i:=1 to j do write(b[i]:3); readln; end.