program kivalogatas; const n = 10; var a, b: array [1..n] of integer; i, j: 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; //válogassuk ki az 5-osoket a b-tombbe! j:=0; for i:=1 to n do if a[i]=5 then begin j:=j+1; b[j]:=i; end; writeln('az 5-osok sorszamai:'); for i:=1 to j do write(b[i], ' '); readln; end.