массивы

[Анастасия19]

в одномерном массиве А(10)найти минимальный элемент, вывести его значение и индекс.Заменить элементы кратные 7 значением минимального элемента.Полученный массив вывести на экран.

[Serge_Bliznykov]

Задачка очень простенькая, для совсем начинающих.
Что у Вас не получается?
И покажите свой код, как Вы описываете массив и заполняете его.
Будет повод для разговора.

[newerow1989]

var a:array[1..10] of integer;
    i,min,k:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      a[i]:=Random(20);
      Write(a[i],'  ');
   end;
   Writeln;
   k:=1;
   min:=a[k];
   For i:=2 to 10 do
      If a[i]<min then
      begin
         min:=a[i];
         k:=i;
      end;
   Writeln('a[',k,'] = ',min);
   For i:=1 to 10 do
   begin
      If a[i] mod 7 = 0 then
         a[i]:=min;
      Write(a[i],'  ');
   end;
   Readln;
end.

Сойдет?