кот12

в массиве A(n) подсчитать количество минимальных элементов. В турбо паскале

Евгений

const n=20;
var A:array[1..n] of byte;
i,m,min:byte;
begin
Randomize;
for i:=1 to n do
begin
A[i]:=Random(50)+1;
Write (A[i]:4);
end;
m:=0; min:=100;
for i:=1 to n do
if A[i]<min then
begin
min:=A[i];
m:=1;
end else
if A[i]=min then
Inc(m);
Writeln;
Writeln('min= ',min);
Writeln('vsego min= ',m);
Readln;
end.