задача с одномерными массивами...., нужна помощь... Опции

[ginga]

Вот такая задача вот....помогите плиз сделать очень срочно нужно....

Даны массивы а(10), в (4), с (7).В каждом массиве заменить минимальный элемент произведением элементов соответственного массива. Элементы каждого массива можно брать любые. В скобках это кол-во эл-ов в каждом массиве.

Пожалуйста помогите!!!!!!

[мисс_граффити]

ну по порядку:
в массиве а

    for i:= 1 to n do readln(a[i]);
    p:=1;
    min := 1; //мы же договорились запоминать индексы!
    for i:= 1 to n do 
       begin
       p:=p*(a[i]);
       if a[i]<a[min] then min := i;
       end;
    a[min]:=p; //вот это надо вынести за пределы цикла! а то ерунда получится

в массиве b (с отступами здесь хуже...):

    for i:= 4 to m do readln(b[i]); //почему от 1 до m? от 4...
   p:= 1;
   min := 4; //!!!
   for i:= 4 to m do 
      begin //вот здесь уползла строчка
      p:=p*(b[i]);
      if b[i]<b[min] then min := i;
      end;
    b[min]:=p; //опять же - выносим

ну и с массивом с- те же ошибки

Сообщение отредактировано: мисс_граффити - 25.11.2007 18:51