Создать матрицу.все элементы главной диагонали заменить нулями а ниже единицами

#include < iostream> int main() {     const int n   = 4;     int a[n][n]=     {         {1,2,3,4},         {4,3,2,1},         {1,2,3,4},         {4,3,2,1}     };     for (int i=0; i< n; i++)         a[i][i] = 0;     for (int i=1; i< n; i++)         for (int j=0; j< i; j++)             a[i][j] = 1;     for (int i=0; i< n; i++)     {         for (int j=0; j< n; j++)             std: : cout < < a[i][j] < < ' ';         std: : cout < < std: : endl;     }     return 0; }

1) основной инструмент передачи, хранения и обработки информации (9 компьютер 2) основное устройство ввода информации (10 клавиатура 3) "мозг" компьютера (9 процессор 4) устройство вывода информации (7 монитор 5) устройство хранения программ и данных (6 память 6) устройство для быстрого перемещения по экрану и выбора информации (4 мышь 7) носитель информации, на который записывают программы для хранения (7 дискета 8) другое название жёсткого диска (9 букв).  -винчестер 9) устройство, с которого можно вывести на бумагу тексты и рисунки (7

{pascal abc.net 3.2 } var  f: text;   s: string;   i, l_line, slov: integer; begin   assign(f, 'd: \in.txt');   reset(f);   while not eof(f) do begin     readln(f,s);     s : = trim(s);     l_line : = length(s);     if l_line < > 0 then begin       for i: =1 to l_line do         if s[i] = ' ' then  slov : = slov + 1;               slov : = slov + 1;       end;   end;   close(f);     assign(f, 'd: \out.txt');   rewrite(f);   write(f, slov);   close(f); end.