Определить значение наибольшего элемента массива заполненного…

Примени эту программу себе, тут и мах и мин program zadanie4; uses crt; var i: integer; max,min,maxi,mini: integer; a: array[1… 10] of integer; begin clrscr; randomize; for i: =1 to 10 do a: =random (51); writeln ('ischodni file'); writeln ('-'); for i: =1 to 10 do write (a: 5); writeln; writeln; maxi: =1; max: =a[1]; for i: =2 to 10 do begin if a>max then begin max: =a; maxi: =i; end; end; mini: =1; min: =a[1]; for i: =2 to 10 do if a; end; write ('maximalnoe='); writeln (max); write ('minimalnoe='); writeln (min); write ('maximalnoe i='); writeln (maxi); write ('minimalnoe i='); writeln (mini); writeln ('konec zadachi'); readln; end.