Задан одномерный массив Z (N) (N

Uses crt; const n=10; var a: array[1… n] of integer; i,max,min: integer; sr: real; beginrandomize; max: =0; min: =50; for i: =1 to n dobegina[i]: =random (50); writeln (a[i]); end; writeln; for i: =1 to n dobeginif a[i]max then max: =a[i]; end; sr: =(max+min) /2; for i: =1 to n dobeginif a[i]sr then a[i]: =max; end; for i: =1 to n dowriteln (a[i]); end.