Pascal, помогите Опции

[CumbeR-C]

помогите решить задачку!
Определить минимальный элемент массива и его порядковый номер.

[AndrewDragon]

лол)))

Код

const N=4
var
    Min: real;
    a:array[1..N] of real;
    i,g: integer;
begin
    writeln('BBEDUTE EJIEMEHTbI MACCUBA');
    for i:=1 to n do begin
        write(' A[',i,']=');
        readln(a[i])
    end;
    Min:=a[1];
    for i:=2 to n do
        if Min>a[i] then begin
            Min:=a[i];
            g:=i; {nomer minimalnogo elementa}
            end;
    
    writeln('MUHUMAJIbHbIU EJIEMEHT MACCUBA - A[',g,']=',Min);
end.

Убрал ошибки и недочёты. Модератор.

Сообщение отредактировал Gobbs - Oct 29 2006, 16:49