// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 procedure MasPrint(a:array[,] of integer; k:integer); begin for var i:=0 to Length(a,0)-1 do begin for var j:=0 to Length(a,1)-1 do Write(a[i,j]:k); Writeln end end;
begin var n:=ReadInteger('Задайте число строк/столбцов в массиве:'); var a:=MatrixRandom(n,n,-99,99); Writeln('Исходный массив'); MasPrint(a,4); for var i:=0 to n-1 do for var j:=0 to n-1 do if i=j then a[i,j]:=1 else a[i,j]:=0; Writeln('Результирующий массив'); MasPrint(a,2) end.
int main() { int n; scanf("%d", &n); bool a[n][n]; memset(a, true, sizeof(a)); int m; scanf("%d", &m); for (int k = 0; k < m; ++k) { int x, y, aa; scanf("%d%d%d", &x, &y, &aa); for (int i = x; i < min(x + aa, n + 1); ++i) { for (int j = y; j < min(y + aa, n + 1); ++j) { a[i][j] = false; } } } int cnt = 0; for (int i = 0; i < n; i++) { for (int j = 0; j < n; j++) { if (a[i][j]) { cnt++; } } } printf("%d", cnt); return 0; }
милые мордочки?
Объяснение: