Найти номер последнего отрицательного числа в массиве паскаль , господа.

Яне стану указывать эпитетов к своему коду, пусть он сам скажет за себя. алгоритм такой: просматриваем массив от конца к началу. и завершаем работу, как только встретим отрицательный элемент. а если так и не встретим до начала массива, значит таких элементов в массиве нет. const   n=20; { размер массива } var   a: array[1..n] of integer;   i: integer;   found: boolean; begin   randomize;   writeln('элементы массива');   for i: =1 to n do begin       a[i]: =random(21)-10; { случайное число на интервале [-10; 10] }       write(a[i]: 4)   end;   writeln;   { собственно }   i: =n;   repeat       found: =(a[i]< 0);       dec(i)   until (i=0) or found;   if found then writeln('номер элемента равен ',i+1)   else writeln('отрицательных элементов нет') end. тестовое решение: элементы массива   -3    5  -2    3    2  -2  -5    7    9  -3    1  -2  -1  -6    1  -6    2    8    7    1 номер элемента равен 16

1.  а) enter2.  в) значение переменной  3.  в) write 4. в) sqrt (x)5.  в) random (10) +106.  б) if a7.  в) несколько операторовпоясню некоторые ответы: 3. в) write  - это стандартная функция вывода в pascal5. в) random(10)+10.  функция random(n) генерирует случайные целые числа диапазоном от [0; n) , то есть random (10) будет в промежутке [0; 10), добавив к выражени +10, мы сдвинем промежуток на +10 = [10; 20)