Pascal. в двумерном массиве l (m, n) первый элемент поменять с последним и найти сумму отрицательных элементов. массив заполнить случайным образом. исходный и измененный массивы вывести на экран в виде матрицы.

// pascalabc.net 3.1, сборка 1213 от 04.04.2016 begin   var m,n: integer;   write(' число строк и столбцов: ');   read(m,n);   writeln('исходный массив');   var l: =matrixrandom(m,n,-99,99);   var s: =0;   for var i: =0 to m-1 do begin       for var j: =0 to n-1 do begin           write(l[i,j]: 4);           if l[i,j]< 0 then s+=l[i,j]           end;       writeln   end;   swap(l[0,0],l[m-1,n-1]);   writeln('результирующий массив');   for var i: =0 to m-1 do begin       for var j: =0 to n-1 do write(l[i,j]: 4);       writeln   end;   writeln('сумма отрицательных элементов равна ',s) end. тестовое решение: число строк и столбцов: 5 8 исходный массив   59  28 -26 -31  -2 -75    6  24   -41 -50 -34 -31  58  49 -14  44   -82  15 -47  67    1 -91 -47  -6   -36  73 -41  87  15  61  87 -36     3 -19  34 -27  72 -49  45 -69 результирующий массив   -69  28 -26 -31  -2 -75    6  24   -41 -50 -34 -31  58  49 -14  44   -82  15 -47  67    1 -91 -47  -6   -36  73 -41  87  15  61  87 -36     3 -19  34 -27  72 -49  45  59 сумма отрицательных элементов равна -854

print(1024 // 100)

print(1024 % 100)

print(574 % 10)

print(574 // 10)

Объяснение:

print выводит текст, в данный момент итог действий на экран.