4)Дан массив размера 10.Обнулить элементы массыива,расположенные между его минимальным и максимальными элементами(не включая мин. и макс. элементы)

uses crt;
const num = 10;
var mas: array [1..num] of integer; //показываем проге что есть массив
i,min,max: integer; // показываем что есть числа i, min и max

begin

clrscr;

for i:=1 to num do begin mas[i]:=random(100)+1; write(mas[i]:3); end; //записываем в массив случайные числа и выводим на экран

writeln; writeln;

min:=mas[1]; / представим что мин.число равно минэлементу.
max:=mas[num]; // представим что макс.число равно макс.элементу

// перебираем весь массив чтобы найти настоящие мин. и максиальные элементы.
for i:=1 to num do
begin
if min>mas[i] then min:=mas[i];
if max<mas[i] then max:=mas[i];
end;

// выводим настоящие мин. и макс.элементы.
writeln('min=',min);
writeln('max=',max);
writeln;

// перебираем все элементы массива обнуляя их, кроме мин. и макс. элементов.
for i:=1 to num do
if (mas[i]<>max) and (mas[i]<>min) then mas[i]:=0;

//выводим полученный массив
for i:=1 to num do write(mas[i]:3);

readkey;
end.