Составьте программу, которая заполняет массив а (1…

Var i,min,max: integer; a: array[1… 10] of integer; beginmin: =100; max: =0; Randomize; for i: =1 to 10 dobegina[i]: =random (101); write (a[i],'); if (a[i] > max) then max: =a[i]; if (a[i] < min) then min: =a[i]; end; writeln ('); for i: =1 to 10 dobeginif a[i]=max then a[i]: =min else if a[i]=min then a[i]: =max; write (a[i],'); end; end.