Pascal. В двумерном массиве L (M, N) первый элемент поменять с последним и найти сумму отрицательных элементов. Массив заполнить случайным образом. Исходный и измененный массивы вывести на экран в виде матрицы.

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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы