Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.04.2008, 17:26   #1
jenja
Пользователь
 
Регистрация: 27.02.2008
Сообщений: 22
По умолчанию найти сумму элементов строки

В данной действительной квадратной матрице порядка n найти сумму элементов строки, в которой расположен элемент с наименьшим значением. Предполагается, что такой элемент единственный.


минимальный элемент я нашала, а как записать, чтобы он складывал именно те элементы, где находится минимальный элемент?
jenja вне форума Ответить с цитированием
Старый 02.04.2008, 17:47   #2
Dj_smart
Капсула от спама
Форумчанин
 
Аватар для Dj_smart
 
Регистрация: 04.03.2008
Сообщений: 779
Радость

Вот дерзай:
Код:
var n,m,min,nmin:word;
min:=65530;
for n:=1 to 25 do begin
  for m:=1 to 25 do begin
    if mas[n,m]<min then begin
      nmin:=n;
      min:=mas[n,m]
    end;
  end;
end;
Результат nmin-твое значение
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг
Dj_smart вне форума Ответить с цитированием
Старый 02.04.2008, 17:49   #3
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Цитата:
минимальный элемент я нашала, а как записать, чтобы он складывал именно те элементы, где находится минимальный элемент?
Если вы нашли минимальный элемент, то должны были найти и номер строки, где он находится.
Это пишется так:
Код:
min:=a[1,1];imin:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then
    begin
      min:=a[i,j];
      imin:=i;
    end;
Сейчас ищем сумму в строке:
Код:
sum:=0;
for j:=1 to n do
sum:=sum+a[imin,j];
Вроде все.
puporev вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти сумму ряда 11111 Помощь студентам 14 01.11.2010 19:55
В двумерном массиве 4*5 найти сумму элементов по строке или столбцу. bkmz Помощь студентам 11 16.04.2008 11:17
Найти сумму последних L положительных элементов в массиве A={a[i]}. Assembler Kasim Помощь студентам 2 16.12.2007 16:12
Найти сумму ряда с точностью Е=10^-3 Добрый Кот Паскаль, Turbo Pascal, PascalABC.NET 2 12.12.2007 12:04
вычислить сумму отрицательных элементов в массиве only_win Паскаль, Turbo Pascal, PascalABC.NET 2 25.09.2007 15:22