Я уж не силен в этой программе но вот вроде должно получиться var a, b : array [1..16] of Integer; begin for var i := 1 to 16 do a[i] := ReadLnInteger('a[' + i + '] ='); WriteLn('Массив A = ', a); b := a; Swap(b[2], b[5]); Swap(b[4], b[9]); Swap(b[7], b[15]); Swap(b[9], b[16]); // повторяем обмен 9, если что? WriteLn('Массив B = ', b); end.
#include <iostream> #include <iomanip> int main() { using namespace std; const int N = 4; const int M = 4; int Y[N][M];
//как-нибудь заполняем матрицу for (int i = 0; i < N; ++i) for (int j = 0; j < M; ++j) Y[i][j] = (i + 1) * (j + 1);
//выведем её на экран for (int i = 0; i < N; ++i) { for (int j = 0; j < M; ++j) cout << setw(3) << Y[i][j]; cout << endl; }
//находим сумму элементов побочной диагонали int S = 0; for (int i = 0; i < N; ++i) for (int j = 0; j < M; ++j) if (j == M - 1 - i) S = S + Y[i][j]; cout << "Sum of adverse diagonal of array: " << S << endl;
//находим сумму всех элементов матрицы int Sum = 0; for (int i = 0; i < N; ++i) for (int j = 0; j < M; ++j) Sum = Sum + Y[i][j]; cout << "Sum of all elements of array: " << Sum << endl; return 0; }
но вот вроде должно получиться
var
a, b : array [1..16] of Integer;
begin
for var i := 1 to 16 do
a[i] := ReadLnInteger('a[' + i + '] =');
WriteLn('Массив A = ', a);
b := a;
Swap(b[2], b[5]);
Swap(b[4], b[9]);
Swap(b[7], b[15]);
Swap(b[9], b[16]); // повторяем обмен 9, если что?
WriteLn('Массив B = ', b);
end.