Напишите программу, которая заполняет матрицу случайными числами, а затем записывает нули во все элементы выше главной диагонали. на языке паскаль. 20

1.  pascalabc.net 3.3 const n=5; begin   writeln('до: ');   var a: =matrrandom(n,n,-10,10); a.println(5);   var b: =a.elementswithindexes.select(k-> k[2]> k[1]? 0: k[0]).toarray;   writeln('после: ');   a: =matrgen(n,n,(i,j)-> b[i*n+j]); a.println(5); end. пример: до:     -7    3    8    -6    -5     -2    6    -1    -6    -8     5    7    2  -10    0     9    3    -8    5    -6     -4    1    1    0  -10 после:     -7    0    0    0    0     -2    6    0    0    0     5    7    2    0    0     9    3    -8    5    0     -4    1    1    0  -10 2. const n=5; var  a: array[1..n,1..n] of integer; i,j: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to n do   begin     a[i,j]: =random(100);     write(a[i,j]: 4);   end;   writeln;   end; for i: =1 to n do   for j: =i+1 to n do a[i,j]: =0; writeln('полученный массив: '); for i: =1 to n do   begin   for j: =1 to n do write(a[i,j]: 4);   writeln;   end; end. пример: исходный массив:   62  25  21  54  22   71  39  41  49  63   26  93  50  79  35   81  45  40  99  45   46  87  63  36  15 полученный массив:   62    0    0    0    0   71  39    0    0    0   26  93  50    0    0   81  45  40  99    0   46  87  63  36  15

 

 

 

крик

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.