// PascalABC.NET 3.2, сборка 1344 от 22.11.2016 // Внимание! В более ранних версиях программа работать не будет! begin var d:=MatrRandom(4,4,-20,20); Writeln('Исходный массив'); d.Println(4); var s:=d[0,0]; for var i:=1 to 3 do begin d[i,i]:=d[i,0]; s+=d[i,i] end; Writeln('Полученный массив'); d.Println(4); Writeln('Сумма на главной диагонали ',s) end.
#include <iostream>
#include <vector>
using namespace std;
void solve(){
int m,n;
cin >> m >> n;
vector<vector<int>> a(m,vector<int>(n));
vector<bool> b(m, true);
for(int i = 0; i < m; i++)
for(int j = 0; j < n; j++)
cin >> a[i][j];
for(int i = 0; i < m; i++)
for(int j = 1; j < n; j++)
if(a[i][j] <= a[i][j-1])
b[i] = false;
for(auto i : b) cout << i << " ";
}
signed main(){
solve();
}
// Внимание! В более ранних версиях программа работать не будет!
begin
var d:=MatrRandom(4,4,-20,20);
Writeln('Исходный массив'); d.Println(4);
var s:=d[0,0];
for var i:=1 to 3 do begin d[i,i]:=d[i,0]; s+=d[i,i] end;
Writeln('Полученный массив'); d.Println(4);
Writeln('Сумма на главной диагонали ',s)
end.
Пример
Исходный массив
14 8 -12 12
15 -9 -16 -6
18 -7 7 5
-7 -12 -10 -14
Полученный массив
14 8 -12 12
15 15 -16 -6
18 -7 18 5
-7 -12 -10 -7
Сумма на главной диагонали 40