Program qq; const n=5; var a: array[1..n] of integer; i,imax: integer; begin writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(100)+50; write(a[i]: 4); end; imax: =1; {считаем,что певый-минимальный} for i: =2 to n do {проверяем все остальные} if a[1]> a[imax] then {новый минимальный} imax: =1; {запомнить i} writeln; {перейти на новую строку} writeln('минимальный элемент a[',imax,']=', a[imax]); end. исправить чтобы получилось минимальный массив

Надеюсь это то что надо

const
    N = 5;

var
    a: array[1..N] of integer;
    i, iMin: integer;

begin
    writeln('Исходный массив:');
    for i := 1 to N do
    begin
        a[i] := random(100) - 50;
        write(a[i]:4);
    end;
    iMin := 1;{инциируем первым элементом}
    for i := 2 to N do {проверяем все остальные}
        if a[i] < a[iMin] then {новый минимальный}
            iMin := i; {запомнить i}
    writeln; {перейти на новую строку}
    writeln('Минимальный элемент a[', iMin, ']=', a[iMin]);
end.