massivy

[ADB]

Найти в массиве количество элементов равных минимальному.

[McFrey]

разбирайтесь

var
  zn: array [1..10] of longint;
  i, kol,min: longint;

begin
  writeln('Введите элементы');
  for i := 1 to 10 do
    readln(zn[i]);
  kol := 0;
  min := zn[1];
  for i := 2 to 10 do
  begin
    if zn[i] < min then
      min := zn[i];     
  end;
  for i := 1 to 10 do
  begin
    if zn[i] = min then
      kol := kol + 1;
  end;
  writeln('Количество элементов равных минимальному = ', kol);
end.

[Rififi]

ADB

Найти в массиве количество элементов равных минимальному.

int arr[10] = {...};
std::count(arr, arr + 10, *std::min_element(arr, arr + 10));