дан массив из 30 чисел, найти количество минимумов

varmas:array[1..30] of integer;min,i,count:integer;beginmin:=maxint;randomize;for i:=1 to 30 dobeginmas[i]:=random(100);if (mas[i]<min) then min:=mas[i];if (mas[i]=min) then count:=count+1;end;writeln (count);end.

varmas:array[1..30] of integer;min,i,count:integer;beginmin:=maxint;randomize;for i:=1 to 30 dobeginmas[i]:=random(100);if (mas[i]<min) then min:=mas[i];end;

for i:=1 to 30 do

if (mas[i]=min) then count:=count+1;writeln (count);end.