Регистрация
kamallm712oxbgkk
14.07.2021 03:21
Информатика
Есть ответ 👍

Turbo pascal. дана квадратичная матрица размером n*n. найти количество нулей ниже побочной диагонали. решение через массивы

147
308
Посмотреть ответы 2

Ответы на вопрос:

Елизаветакотовамимар
Елизаветакотовамимар
4,6(81 оценок)
Const n = 7; var a: array[1..n,1..n] of integer; i,j,k: integer; begin randomize; for i: = 1 to n do       begin       for j: = 1 to n do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 4)               end;       writeln       end; k: =0; writeln; for i: = 1 to n do       for j: = n-i+2 to n do               if a[i,j]=0 then k: =k+1; writeln('k = ',k); readln end.
likapak1
likapak1
4,5(1 оценок)

javascript:

var массив = [], n = prompt("n: "), m = prompt("m: ");

for (let сч1 = 0; сч1 < n; сч1++) {

  массив.push();

  for (let сч2 = 0; сч2 < m; сч2++)

    массив[сч1] = (function (от, до) { return math.round(от - 0.5 + math.random() * (до - от + 1)); })(1, 999);

}

var разрядов = [0, 0, 0], с_одинаковыми = 0;

for (let сч = 0; сч < n; сч++)

  массив[сч].foreach(function (зн) {

    разрядов[зн < 10 ? 0 : разрядов < 100 ? 1 : 2]++;

    let разр = [зн / 100 | 0, зн / 10 % 10, зн % 10];

    if (разр[0] == разр[1] || разр[0] == разр[2] || разр[1] == разр[2])

      с_одинаковыми++;

  });

alert(разрядов + " " + с_одинаковыми);

Популярно: Информатика