Дан массив из десяти целых чисел. Обусловьте, сколько частей этого массива

Это я разумею,что 1,надо программку составить

создаешь массив,переменную мин потом присваиваешь значение переменной первый элемент массива и в цикле сопоставляешь с ним все если меньше то мас[и] минимальный

Плиз,распиши в паскале(((

program zadacha;vara: array[1..10] of integer;i,max,n: integer;beginfor i:=1 to 10 do read(a[i]);n:=0;max:=a[1];for i:=2 to 10 do beginif maxfor i:=1 to 10 do beginif a[i]=max then beginn:=n+1;end;end;writeln();writeln('max=',max);writeln('n=',n);end.Разумею как наибольшее,а как минимальное нееет((((

так же,только символ иной,меньше

ar i,min: Integer;mas:array[1..10] of Integer ;beginmin:=mas[1];Randomize();for i:=1 to 10 dobeginmas[i]:=Random(20);write(' ',mas[i]);if(mas[i]end;WriteLn();writeln('minimal ',min);end.

vot

Спасибо))