Код вот такой, блок-схему сможешь написать по комментам
var a: array [1..100] of integer; n, i, max, min: integer; ans: real;
begin writeln('Введите кол-во эллементов массива (от 1 до 100)'); readln(n); // cчитывается кол-во элементов read(a[1]); // cчитывается первый элемент массива
max := a[1]; //a[1] принимается за максимальный элемент min := a[1]; //a[1] принимается за минимальный элемент
for i := 2 to n do begin // цикл от 2 до n read(a[i]); // cчитывается i-тый элемент массива if (max < a[i]) then // если max меньше нового эллемента обновить max max := a[i] else if (min > a[i]) then // если min больше нового эллемента обновить min min := a[i]; end;
ans := max / min; //присвоить переменной ans ответ на задачу
writeln(ans); // вывести ответ
end.