ПОМОГИТЕ ПОЖАЛУЙСТА
Решить в паскале и написать блок-схему.


Найти частное от деления номеров минимального и макcимального элементов массива С(13).

Код вот такой, блок-схему сможешь написать по комментам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.