Напишите программу в паскале ABC, и нарисуйте к ней блок-схему.
Вводится массив из 15 элементов,нужно определить сколько эл. массива будут между его макс и миним. элементом.

vari,max,min,res,maxi,mini:integer;a: array [1..15] of integer;beginwriteln('Введите числа');for i:=1 to 15 doread(a[i]);max:=a[1];min:=a[1];for i:=1 to 15 dobeginif max<a[i] then beginmax:=a[i];maxi:=i;end;if min>a[i] then beginmin:=a[i];mini:=i;end;end;if maxi>mini thenres:=maxi-minielseres:=mini-maxi;res:=res-2;writeln('между максимум и минимум = ', res, ' элементов');end.