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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.11.2006, 16:44   #1
ангелина
Новичок
Джуниор
 
Регистрация: 10.11.2006
Сообщений: 2
Смущение программисты Help!!!


ПОМОГИТЕ ПЛИЗЗЗЗ!!!!

Дан двумерный массив X[N,M], где значения элементов массива заданы случайным образом, а их количество вводится с клавиатуры. Найти столбец с минимальной суммой элементов
ангелина вне форума Ответить с цитированием
Старый 25.11.2006, 19:58   #2
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

Вот посмотри:
Код:
uses crt;
const n=15;
      m=10;
var x:array[1..n,1..m]of integer;
    i,j,s,sMax,nMax:integer;
begin
for j:=1 to m do
 begin
 for i:=1 to n do
  begin
  x[i,j]:=random(10);
  write(x[i,j],' ');
  end;
 writeln;
 end;

sMax:=0;
nMax:=1;
for i:=1 to N do
 begin
 s:=0;
 for j:=1 to M do s:=s+x[i,j];
 if s>sMax then
   begin
   sMax:=s; {максимальная сумма}
   nMax:=i; {номер столбца с максимальной суммой}
   end;
 end;
Writeln('Максимальная сумма ',sMax,' в ',nMax,' столбце.');
readln;
end.
zetrix вне форума Ответить с цитированием
Старый 28.11.2006, 08:02   #3
Трофимов Александр
Форумчанин
 
Аватар для Трофимов Александр
 
Регистрация: 03.11.2006
Сообщений: 321
По умолчанию

По-моему, может возникнуть ситуация, когда максимальная сумма столбца<0. Значению sMax изначально правильнее было бы присвоить сумму элементов первого столбца.
Трофимов Александр вне форума Ответить с цитированием
Старый 28.11.2006, 12:38   #4
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

мда... в спешке делал, не учёл...
zetrix вне форума Ответить с цитированием
Ответ


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

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

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