Кто решит, тот молодечик! Дана матрица (массив) A (N; M). Вывести на экран массив A (N; M)…

uses crt; var a: array [1… 99, 1… 99] of integer; i,j,n,m,x,z: integer; beginclrscr; randomize (); z: =0; writeln ('Введите количество строк'); readln (n); writeln ('Введите количество столбцов'); readln (m); writeln ('Введите номер строки'); readln (x); for i: =1 to n dofor j: =1 to m dobegina[i,j]: =random (10); if x=i then z: =z+a[i,j]; end; for i: =1 to n dobeginfor j: =1 to m dowrite (a[i,j]: 2, '); writeln (); writeln; end; writeln ('Сумма ',x,' строки=',z); readln (); end.