найти номера всех элементов с минимальными значениями. вывести кол-во таких элементов(паскаль)

Ответ учителя по предмету Информатика

Const

K = 33;

Var

A:array[1..K] of integer;

i,m,n:integer;

Begin

For i:= 1 to K do

    Begin

    A[i]:=random(21)-10;

    Write(A[i],’ ‘);

    End;

WriteLn;

m:=A[1];

n:=0;

For i:= 2 to K do

    if A[i]<m then m:=A[i];

For i:= 1 to K do

    if A[i]=m then n:=n+1;

WriteLn(‘Количество минимальных элементов: ‘,n);

Write(‘Номера минимальных элементов: ‘);

For i:= 1 to K do

    if A[i]=m then Write(i,’ ‘)

End.

Пример:

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

Количество минимальных элементов: 4

Номера минимальных элементов: 8 14 17 29