Напишите программу, которая выводит на экран строку матрицы, сумма значений элементов которой наибольшая (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.

2^i = 64

i = 6 бит потребуется на 1 символ

256 * 128 * 6 = 196608 бит памяти потребуется чтобы сохранить текст

196608 бит: 8 = 24576 байт : 1024 = 24 килобайт

ответ. 24 килобайт

 

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

 

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.