Нужно написать программу в паскале. нужно найти мах и мин в массиве и поменять их местами!

Var a: array[0..100] of integer; i: integer; max,min: integer; begin   for i: =0 to 100 do begin     if a[i]< a[min] then min: =i;     if a[i]> a[max] then max: =i;     end   i: =a[max];     a[max]: =a[min];     a[min]: =i; end.

                                                начало (написать в овале)                                       дан четырехугольник (написать в параллелограмме)                                 стороны попарно параллельны? (написать в ромбе и провести две стрелки)           да                                                                          нет является параллелограммом            не является параллелограммом (написать в прямоугольнике)                          (написать в прямоугольнике)                                                   конец  (написать в овале)              

Использовать чертежник алг нач опустить перо сместиться на вектор (0,9) сместиться на вектор (3,0) сместиться на вектор (1,-1) сместиться на вектор (0,-2) сместиться на вектор (-1,-1) поднять перо сместиться на вектор (-3,0) опустить перо сместиться на вектор (4,0) сместиться на вектор (1,-1) сместиться на вектор (0,-3) сместиться на вектор (-1,-1) сместиться на вектор (-4,0) поднять перо сместиться на вектор (6,0) опустить перо сместиться на вектор (2.5,7) сместиться на вектор (2.5,-7) поднять перо сместиться на вектор (-3.9,3) опустить перо сместиться на вектор (2.8,0) поднять перо сместиться на вектор (2.1,-3) опустить перо сместиться на вектор (0,7) сместиться на вектор (3,0) сместиться на вектор (1,-1) сместиться на вектор (0,-2) сместиться на вектор (-1,-1) сместиться на вектор (-3,0) поднять перо сместиться на вектор (9,-3) опустить перо сместиться на вектор (0,7) сместиться на вектор (-3,0) сместиться на вектор (-1,-1) сместиться на вектор (0,-2) сместиться на вектор (1,-1) сместиться на вектор (3,0) сместиться на вектор (-4,-3) кон