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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.05.2012, 18:37   #1
revolteck
 
Регистрация: 06.04.2012
Сообщений: 4
По умолчанию задача на массив

Дан целочисленный массив X [1..n, 1..m] (n и m вводится пользователем). Найти номер строки, для которой среднеарифметическое значение ее элементов наименьшее. Результат запишите в файл.
не могу подсчитать и вывести номер строки=(
прошу помощи, буду очень благодарен
revolteck вне форума Ответить с цитированием
Старый 02.05.2012, 19:50   #2
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

Код:
in:=1;sm:=0;s:=0;
for i:=1 to m do
s:=s+x[in,i];
sm:=s/m; 
for i:=2 to n do begin
s:=0;
for j:=1 to m do
s:=s+x[i,j];
s:=s/m;
if s<sm then begin sm:=s;in:=i;end;
end;
{in-номер строки sm-минимальное сред арифм }
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
IT-man вне форума Ответить с цитированием
Старый 02.05.2012, 20:03   #3
revolteck
 
Регистрация: 06.04.2012
Сообщений: 4
По умолчанию

благодарю=)
revolteck вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на массив... Анастасия12 Паскаль, Turbo Pascal, PascalABC.NET 9 20.01.2012 09:55
Задача на массив Начинающий програм Помощь студентам 3 23.11.2011 20:00
задача на массив кира1005 Паскаль, Turbo Pascal, PascalABC.NET 1 25.06.2011 19:33
Задача на массив С++ zaki Помощь студентам 0 12.06.2011 11:11
Задача на Массив Uoga Паскаль, Turbo Pascal, PascalABC.NET 1 17.05.2011 18:57