min в массиве))

[Dzhem]

подскажите пожалуйста, как найти минимальные элементы(их может быть несколько, а может и один) в одномерном массиве, вывести их значения и номера?
* * *

imin:=1;{номер min элемента}
for i:=1 to n do
if a[i]<a[imin] then imin:=i;
min:=a[imin];

* * *
что к этому нужно еще добавить?
спасибо.

[zmey31313]

Сравнивайте их друг с другом

[edmynt]

program Untitled;
uses crt;
const n=10;
var
   a:array [1..n] of integer;
   min,i,j:integer;
begin
  randomize;
  for i:=1 to n do
      begin
           a[i]:=random(19)-9;
           write(a[i]:2);
      end;
  min:=a[1];
  j:=0;
  for i:=1 to n do
      begin
           if min>a[i] then
              begin
                  min:=a[i];

              end;
      end;
  writeln;
  writeln('min= ',min);
  writeln ('Nambers Elements: ');
          for i:=1 to n do
              begin
                   if a[i]=min then
                      begin
                      write(i:3);
                      inc(j);
                      end;
              end;
  WRITELN;
  writeln ('Check elements= ',j);
   repeat until keypressed;
end.

[Dzhem]

Спасибо конечно, но я не понимаю что такое inc(j) и keypressed, можно ли это на что-нибудь заменить?

[edmynt]

inc(j) тоже самое что и j:=J+1 , т е счетчик возростание с шагом один
repeat until keypressed; - выполнять программу пока не нажата любоя клавишу , заментьможн - Readkey;

[Serge_Bliznykov]

2 Dzhem

edmynt написал, конечно, отличную программу!
j, кстати, просто счётчик, сколько минимальных чисел в массиве...
Вам он, по условию задачи не нужен..

а вообще, к тому коду, что Вы написали в пост #1
достаточно приписать один цикл:

imin:=1;{номер min элемента}
for i:=1 to n do
  if a[i]<a[imin] then imin:=i;

WriteLn;
Write('Minimal value = ',a[imin],' has elements with indexes: ');
for i:=1 to n do
 if a[i]=a[imin] then Write(i:1,' ');
Writeln;

// на Writeln можно не обращать внимания - они просто для красоты - чтобы строчки отделялись...

[Dzhem]

Serge_Bliznykov спасибо, но я уже сам догадался))

[Serge_Bliznykov]

Serge_Bliznykov спасибо, но я уже сам догадался))

Пожалуйста.
Согласен, за 16 дней уже можно было сообразить...