Const N = 10;
var im, i, ie: Integer;
    A: array [0..N] of Integer;
begin    for i := 0 to N do
        A[i] := random(99);
    im := A[0];
    for i := 0 to N do
        if (A[i] > im) then
        begin
             im := A[i];
             ie := i;
        end;
    writeln(ie);
end.
==========================================
const N = 10;
var im, i, ie, ib: Integer;
    A: array [0..N] of Integer;
begin
    readln(im);
    for i := 0 to N do
        A[i] := random(15);
    for i := 0 to N do
        if (im = A[i]) then ie := i;
    writeln(ie);
end.
================================
const N = 10;
var im, i, ie, ib: Integer;
    A: array [0..N] of Integer;
begin
    readln(im);
    for i := 0 to N do
        A[i] := random(15);
    for i := 0 to N do
        if (im = A[i]) then
        begin
             ie := i;
             break;
        end;
    writeln(ie);
end.
================================
Вот, прошу:) Тут полезно знать, что вначале массив заполняется случайными числами во всех примерах, вдруг спросят