Напишите программу, которая выводит на экран строку матрицы, сумма значений элементов которой наибольшая (pascal)

Const     n = 3;     m = 4; var     a: array[1..n,1..m] of integer;     i,j,imax: integer;     s,max: real; begin randomize; writeln('исходная матрица: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               end;       writeln       end; max: =0; imax: =1; for j: = 1 to m do       max: =max+a[1,j]; for i: = 2 to n do       begin       for j: = 1 to m do               s: =s+a[i,j];       if s> max then             begin             max: =s;             imax: =i;             end;       end; write('искомая строка: '); for j: = 1 to m do       write(' ',a[imax,j]) end. пример работы программы: исходная матрица:   8    0  -7  -1   -2 -10  -4 -10   5  -1  10  -6 искомая строка: 8 0 -7 -1

1. современное решение // pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('строка с наибольшей суммой: ');   a.row(a.rows.select(r-> r.sum).toarray.indexmax).println end. пример количество строк в матрице: 6 количество столбцов в матрице: 9 *** исходная матрица [6,9] ***   54 -83  45 -44 -52  57 -90 -71 -70     8  99 -27  72  46  28 -18  36  48   -85  24 -57 -67  63 -69  52  44 -99   -34 -44  -1  45  48  63  68  48  98   27  84  15  70  37 -70    1  24 -60   -82 -63    6 -59  91 -64  84  65  66 строка с наибольшей суммой: 8 99 -27 72 46 28 -18 36 48 2. школьное решение в стиле языка турбопаскаль 1983г const   nn=20; var   i,j,n,m,k,s,max: integer;   a: array[1..nn,1..nn] of integer; begin   write('количество строк в матрице: '); read(n);   write('количество столбцов в матрице : '); read(m);   writeln('*** исходная матрица [',n,',',m,'] ***');   randomize;   max: =-100;   for i: =1 to n do begin       s: =0;       for j: =1 to m do begin           a[i,j]: =random(199)-99;           write(a[i,j]: 4);           s: =s+a[i,j]           end;       writeln;       if s> max then begin           max: =s; k: =i           end       end;   for i: =1 to 4*n do write('-');   writeln;   writeln('строка с наибольшей суммой: ');   for j: =1 to m do write(a[k,j],' ');   writeln end.

200: 2

100|0

50|0

25|0

12|1

6|0

3|0

1|1

0|1

 

200₁₀=11001000₂

 

489: 2

244|1

122|0

61|0

30|1

15|0

7|1

3|1

1|1

0|1

 

489₁₀=111101001₂

 

543: 2

271|1

135|1

67|1

33|1

16|1

8|0

4|0

2|0

1|0

0|1

 

543₁₀=1000011111₂

 

950: 2

475|0

237|1

118|1

59|0

29|1

14|1

7|0

3|1

1|1

0|1

 

950₁₀=1110110110

 

1025: 2

512|1

256|0

128|0

64|0

32|0

16|0

8|0

4|0

2|0

1|0

0|1

 

1025₁₀=10000000001₂

 

 

 

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.