SaveText.Ru

SaveText.Ru

Без имени
  1. var
  2.   a: array [1..10,1..10] of integer;          //
  3.   x,y,m,n,u,j,i,l,k:byte;                    // Раздел описания переменных
  4.   Si,Sk,Sl:integer;                         //
  5.  
  6. begin
  7.  randomize;                                   // Подключение рандомайзера
  8.  write('Количество строк '); readln(m);       //
  9.  write('Количество столбцов '); readln(n);   // Ввод необходимых данных
  10.  for x:=1 to m do                            {Цикл 1}
  11.  begin
  12.    for y:=1 to n do                            {Цикл 2}
  13.    begin
  14.      a[x,y]:=random(10);
  15.      write(a[x,y]:4);
  16.    end;                                        {Завершение цикла 2}
  17.    writeln;
  18.  end;                                        {Завершение цикла 1}
  19.  u:=0;
  20.  j:=1;
  21.  i:=1;
  22.  repeat                                      {Цикл "После" 1}
  23.   u:=u+a[i,j];
  24.   j:=j+1;
  25.  until not (j<=n);                           {Завершения цикла "После" 1}
  26.  l:=1;
  27.  i:=2;
  28.  repeat                                      {Цикл "После" 1}
  29.   Si:=0;
  30.   j:=1;
  31.   repeat                                      {Цикл "После" 2}
  32.     Si:=Si+a[i,j];
  33.     j:=j+1;
  34.   until not (j<=n);                           {Завершение цикла "После" 2}
  35.   if (u<=Si) then else                           {Проверка условия}
  36.   begin
  37.     k:=i;
  38.     Sk:=u;
  39.   end;
  40.   i:=i+1;
  41.  until not (i<=m);                           {Завершение цикла После" 1}                    
  42.  a[k,i]:=a[k,l];
  43.  l:=1;
  44.  j:=2;
  45.  repeat                                     {Цикл "После" 1}
  46.    if (a[k,j]>=a[k,l]) then else              {Проверка условия}
  47.    begin
  48.      a[k,j]:=a[k,l];
  49.      l:=j;
  50.    end;  
  51.    j:=j+1;
  52.  until not (j<=n);                          {Завершение цикла После" 1}  
  53.  Sl:=0;
  54.  i:=1;
  55.  repeat                                     {Цикл "После" 1}  
  56.    Sl:=Sl+a[i,l];
  57.    i:=i+1;
  58.  until not (i<=m);                          {Завершение цикла После" 1}  
  59.  writeln('Sk=',Sk);                              //
  60.  writeln('k=',k);                               //
  61.  writeln('l=',l);                              //
  62.  writeln('Sl=',Sl);                           // Вывод необходимых переменных
  63. end.

Share with your friends:

Распечатать