Python 2. Дана квадратная матрица A[N, N], Записать на место отрицательных элементов матрицы нули, а на место положительных — единицы. Вывести на печать нижнюю треугольную матрицу в общепринятом виде.

Ms dos qbasic 1.0: cls randomize timer input "k = ", k input "l = ", l dim x! (k, l) for i = 1 to k       for j = 1 to l               x(i, j) = rnd * 21 - 10               print using "###"; x(i, j);               print ; " ";       next j       print next i for i = 1 to l * 4 - 1       print ; "_"; next i print for n = 1 to l       for i = 1 to l - n - 1               if x(i, 2) < x(i + 1, 2) then               b = x(i, 2)               x(i, 2) = x(i + 1, 2)               x(i + 1, 2) = b               end if       next i next n for i = 1 to k       for j = 1 to l               print using "###"; x(i, j);               print " ";       next j       print next i end

 Program SumAndMul;

Uses Crt;

var a:array[1..10] of real;

       i:integer;   

 

       sum,mul:longint;

begin

     clrscr;

     for i:=1 to 10 do

            begin

                 write('Введите -', i,' число:'  );

                  readln(a[i]);

             end;

 

 

sum:=0;mul:=1;

for i:=1 to 10 do

            begin

                if (a[i]>0) then sum:=sum+a[i];

                if (a[i]<0 )  then mul:=mul*a[i];

             end;    

 writeln('Сумма положительных элементов: ',sum);

 writeln('Произведение отрицательных элементов: ',mul);  

   readkey;

 

end.