Дан массив из 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]; end;

for i: =1 to 30 do

if (mas[i]=min) then count: =count+1; 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]; if (mas[i]=min) then count: =count+1; end; writeln (count); end.

Что ещё спрятали бим и бом    составь алгоритм расшифровки слова. запиши, что получается после каждого действия? 1начало 2 запиши слово( бим= кажлор, бом= колмес)3 поменяй местами 1 и 3 согласные буквы4 поменяй местами 1и 2 гласные буквы5 если на конце р  , то вычеркни ее6 иначе вычеркни косконец  бим            бом ( табличка)кажлор      колмеслажкор    молкесложкар    мелкосложка    мел 

//pascalabc.net 3.1 сборка 1239 var       brackets: array [0..2, 0..1] of char : = (('{', '}'), ('[', ']'), ('(', ')')); begin       var s : = readlnstring();       var counter : = 0;       var max_depth : = 0;             for var i : = 1 to s.length do       begin               if s[i] = '(' then counter += 1               else if s[i] = ')' then counter -= 1               else continue;               if counter < 0 then begin                       writeln('brackets error');                       halt;               end;               if counter > max_depth then max_depth : = counter;       end;             counter : = 0;       for var i : = 1 to s.length do       begin               if s[i] = '(' then counter += 1               else if s[i] = ')' then counter -= 1               else continue;                             if (counter = max_depth - 1) and (s[i] = '(') then s[i] : = brackets[1, 0]               else if (counter = max_depth - 2) and (s[i] = ')') then s[i] : = brackets[1, 1]               else if (counter = max_depth - 2) and (s[i] = '(') then s[i] : = brackets[0, 0]               else if (counter = max_depth - 3) and (s[i] = ')') then s[i] : = brackets[0, 1];       end;             writeln(s); end.