SaveText.Ru

Без имени
  1. var
  2.     a: array [1..10,1..10] of integer;                    //
  3.     b: array [1..10] of integer;                         //  Раздел описания переменных
  4.     Sk,Sl,l,m,n,i,k,j,x:integer;                        //
  5.    
  6.  begin
  7.  randomize;                                               //  Подключение рандомайзера
  8.  write('Количество строк '); readln(m);                         //  
  9.  write('Количество столбцов '); readln(n);                     //  Ввод необходимых данных
  10.  x:=maxint;
  11.  for i:=1 to m do                                           {Цикл 1}
  12.  begin
  13.    for j:=1 to n do                                            {Цикл 2}
  14.    begin
  15.      a[i,j]:=random(10);
  16.      write(a[i,j]:4);
  17.    end;                                                        {Завершение цикла 2}
  18.    writeln;
  19.  end;                                                       {Завершение цикла 1}
  20.  for i:=1 to m do                                           {Цикл 1}
  21.    for j:=1 to n do                                            {Цикл 2}
  22.      b[i]:=b[i]+a[i,j];
  23.  for i:=1 to m do                                           {Цикл 1}
  24.    if (b[i]>Sk) then                                        {Проверка условия}
  25.    begin
  26.      Sk:=b[i];
  27.      k:=i;
  28.    end;                                                    
  29.  for i:=1 to n do                                           {Цикл 1}
  30.    if (a[k,i]<=x) then                                      {Проверка условия}
  31.    begin
  32.      x:=a[k,i];
  33.      l:=i;
  34.    end;
  35.  for i:=1 to m do                                           {Цикл 1}
  36.    Sl:=Sl+a[i,l];
  37.  writeln('Sk=',Sk);                                              //
  38.  writeln('k=',k);                                               //
  39.  writeln('l=',l);                                              //
  40.  writeln('Sl=',Sl);                                           // Вывод необходимых переменных
  41. end.

Share with your friends:

Распечатать