Двумерные массивы в pascal

[mila111189]

1. Дан двумерный массив размером n*m, заполненный случайными числами. Найти строку с минимальной суммой и в ней максимальный элемент.

2. Заполнить массив n*n по правилу:
1 2 3...n-1 n
0 1 2...n-2 n-1
0 0 1...n-3 n-2
. . . ... . .
0 0 0 ... 0 1

[Stilet]

примерно так:

const int n=5;
int a[n][n],i,j,sum,smax,smaxi=0,max;
for(i:=0;i<n;i++) {sum=0;max=0;
 for(j:=0;j<n;j++){
  a[i][j]=rand();
  sum+=a[i][j];
  if(a[i][j]>max){max:=a[i][j];}
 }
 if(sum<smax){smax=sum;smaxi=i;} 
}

Писал с потолка...
smax - Максимальная сумма
smaxi - максимальная строка
max - максимум в максстроке

[mila111189]

это какой язык? мне паскаль нужен. в этом никак не разберусь

[Sm1Le]

C

const int n=5;
int a[n][n],i,j,sum,smax,smaxi=0,max;
for(i:=0;i<n;i++) {sum=0;max=0;
 for(j:=0;j<n;j++){
  a[i][j]=rand();
  sum+=a[i][j];
  if(a[i][j]>max){max:=a[i][j];}
 }
 if(sum<smax){smax=sum;smaxi=i;} 
}

Pascal .... Нету где перевести набрал на глаз =) ошибки не проверял =)

const n=5;
var 
a:array[1..n][1..n] of integer;
i,j,sum,smax,smaxi,max:integer;
begin
randomize;
for i:=0 to n do 
 begin
  sum:=0;max:=0;
    for j:=0 to n do  
     begin
       a[i][j]:=random(100); 
        sum:=sum+a[i][j];
        if (a[i][j]>max)then 
begin max:=a[i][j];end;
 begin
 if(sum<smax) then begin smax:=sum;smaxi:=i;end;end;

[mila111189]

Не получается((((

[Niro]

Код конечно длиноватый получился, но вроде работает

uses crt;
   var mass: array [1..4,1..4] of integer;
       mass2: array [1..4] of integer;
       s,strmin,min,min2:integer;
       i,j:byte;
begin
   clrscr;
   randomize;
   for i:=1 to 4 do
     for j:=1 to 4 do
       mass[i,j]:=random(15);

   for i:=1 to 4 do
     begin
        for j:=1 to 4 do
          s:=s+mass[i,j];
          mass2[i]:=s;
          s:=0;
     end;
   strmin:=mass2[1];   min:=1;
   for i:=2 to 4 do
     if mass2[i]<strmin then begin
                               strmin:=mass2[i];
                               min:=i;
                             end;
   min2:=mass[min,1];
   for i:=1 to 4 do
     if mass[min,i]<min2 then min2:=mass[min,i];

   writeln('Stroka s min symmou - ',min);
   writeln('Max element v stroke - ',min2);
   readln;
end.

[mila111189]

помоему, когда в стоке ищет максимальный элемент, если есть в строке ноль, он пишет что максимальный элемент 0... или я недопоняла задачу? Оно ищет правильно когда в стороке нет нуля..

[Niro]

Кажись я там напутал и искал не максимальный элемент, а минимальный. Исправьте

min2:=mass[min,1];
   for i:=1 to 4 do
     if mass[min,i]<min2 then min2:=mass[min,i];

   writeln('Stroka s min symmou - ',min);
   writeln('Max element v stroke - ',min2);

на

max:=mass[min,1];
   for i:=1 to 4 do
     if mass[min,i]>max then max:=mass[min,i];

   writeln('Stroka s min symmou - ',min);
   writeln('Max element v stroke - ',max);

не забыв объявить переменную max вместо min2 в разделе var

[mila111189]

Спасибо большое