Дан массив из 10 чисел. Обусловьте, сколько частей этого массива имеют

Если одномерный массив, то:

program min;

var a:array[1..10] of integer;

i,min,k:integer;

begin

writeln('Введите элементы массива');

for i:=1 to 10 do

readln(a[i]);

min:=a1];

for i:=1 to 10 do

if ai]lt;min

then min:=ai;

for i:=1 to 10 do

if ai]=min

then k:=k+1;

writeln('Всего частей с наименьшим значением =',k);

end.