Question

Паскаль.Помогите кто знает.
Нужно найти количество минимальных значений массива

Answer 1

program massiv;

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

var min,k,i:integer;

begin

writeln('Введите массив');

min:=9999;

k:=0;

for i:=1 to 10 do

begin

readln(a[i]);

end;

for i:=1 to 10 do

begin

if a[i]<min then

begin

min:=a[i];

end;

end;

for i:=1 to 10 do

begin

if a[i]=min then

begin

k:=k+1;//считаем минимальные элементы

end;

end;

writeln ('Здесь ',k,' элементов с минимальным значением ',min);

end.

Answer 2

const n=20;

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

i,min,k: integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random(10);

write(a[i]:3);

end;

writeln;

min:=a[1];

k:=1;

for i:=2 to n do

if a[i]<min then

 begin

 min:=a[i]; k:=1;

 end

 else if a[i]=min then k:=k+1;

writeln('min = ', min,'   = ',k);

end.

Пример:

 6  2  7  2  3  0  1  6  0  6  0  5  0  4  5  9  1  6  0  7

min = 0   = 5