Тема: Сочетания оператора цикла и условного оператора

[Кристина Н]

Даны целые числа s_1, s_2, … ,s_n . Определить сколько раз среди них встречается минимальное. Пожалуйста решите

[<- DelpHIFanat ->]

Uses
  Crt;

Var
  S, Min: Integer;
  i, N, k: Byte;

begin
  ClrScr;
  
  Repeat
    Write('N = ');
    ReadLn(N);
  Until (N In [1..255]);

  k:=0;
  Min:=High(Integer);
  For i:=1 To N Do
    Begin
      Write('S[', i,'] = ');
      ReadLn(S);
      If (Min>S) Then
        Begin
          Min:=S;
          k:=1;
        End
      Else If (Min=S) Then
        Inc(k);

    End;

  WriteLn;
  WriteLn('Min = ', Min, ' , vstretilsya raz ', k);

  Repeat Until (KeyPressed);
end.