17 lines
323 B
ObjectPascal
17 lines
323 B
ObjectPascal
const
|
|
N = 30;
|
|
|
|
var
|
|
a: array [1..N] of integer;
|
|
i, j, x: integer;
|
|
|
|
begin
|
|
Randomize();
|
|
for i := 1 to N do begin a[i] := Random(125);write(a[i], ' '); end;
|
|
x:=Random(5);
|
|
writeln('x:= ',x);
|
|
j:=0;
|
|
for i:=N downto 1 do begin if a[i]=x then j:=i; end;
|
|
if j = 0 then writeln('none') else
|
|
writeln(' ',j);
|
|
end. |