Тема: Помогите составить цикл перемножения двух одномерных массивов
Показать сообщение отдельно
  #4  
Старый 16.11.2010, 17:54
Black Raider Black Raider вне форума
Местный
  
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию
Поменяйте местами индексы массива:
вот так:
For j:=1 to 4 do
for i:=1 to 4 do
c[(j*j+(i-1))]:=k[i]*l[j];
__________________
Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение"
Ответить с цитированием