Напишите программу, которая обнуляет все элементы квадратной матрицы, расположенные выше главной диагонали. входные данные в первой строке записаны через пробел размер квадратной матрицы n (количество строк равно количеству столбцов) ( 1 ≤ n ≤ 100 в следующих n строках записаны строки матрицы, в каждой – по n натуральных чисел, разделённых пробелами. выходные данные программа должна вывести матрицу, у которой все элементы выше главной диагонали нулевые, а остальные элементы такие же, как в исходной матрице.

Program obnulenie; var a: array[1..100,1..100] of integer;         i,j,n: integer; begin writeln('введите размер квадратной матрицы: '); readln(n); writeln('введите матрицу: '); for i: =1 to n do   for j: =1 to n do     begin     read(a[i,j]);     if j> i then a[i,j]: =0;       end; writeln('измененная матрица: '); for i: =1 to n do begin   for j: =1 to n do     write(a[i,j],' ');   writeln; end; end.

т.к уточнений нет, то написал на pascal самым простеньким методом.

проверьте всё ли тут, что требуется.

var

  a,b,c,d,f,g: integer;

begin

  writeln('входные данные');

  readln(a,b,c);

  if (a

    d: =a;

  if (b

    d: =b;  

  if (c

    d: =c;

  if (a> b) and (a> c) then

    g: =a;

  if (b> c) and (b> a) then

    g: =b;

  if (c> b) and (c> a) then

    g: =c;

  if (a> d) and (a

    f: =a;

  if (b> d) and (b

    f: =b;

  if (c> d) and (c

    f: =c;

  writeln('результат работы');    

  writeln(d+' '+f+' '+g);        

end.  

// pascalabc.net 3.3, сборка 1570 от 04.11.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(11,-29,150); a.println;   writeln('ср.арифм. положительных: ',a.where(x-> x> 0).average: 0: 3);   writeln('ср.арифм. отрицательных: ',a.where(x-> x< 0).average: 0: 3);   swap(a[1],a[6]);   writeln('результирующий массив'); a.println end. пример 91 109 113 119 17 95 41 131 -15 117 -14 ср.арифм. положительных: 92.556 ср.арифм. отрицательных: -14.500 результирующий массив 91 41 113 119 17 95 109 131 -15 117 -14