Дамп всех задач

Pascal/03.11.16/Program13.pas

@@ -0,0 +1,17 @@
+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.