1) В массиве 40 элементов. Найти максимальный элемент и на его место вставить…

vara: array[1… 40] of integer; i,max,min,mx,mn: integer; beginrandomize; mx: =1; mn: =1; max: =-100; min: =100; for i: =1 to 40 dobegina[i]: =100-random (201); write (a[i],'); if a[i]>max then beginmax: =a[i]; mx: =i; end; if a[i]1 thenbegina[mx]: =a[mx-1]; a[mx-1]: =max; end; for i: =1 to 40 doif i=mn thenwrite ('0 ',a[i],') elsewrite (a[i],'); end.