Дана квадратная матрица a [n, n]. записать на место отрицательных элементов матрицы нули, а на место положительных — единицы. вывести на печать нижнюю треугольную матрицу в общепринятом виде.

Var a: array[1..20, 1..20] of integer; m, n, k, i, j: integer; begin randomize; repeat write('введите число столбцов и строк через пробел: '); readln(n, m); until (n in [1..20]) and (m in [1..20]); for i : = 1 to m do begin for j : = 1 to n do begin a[ i, j ] : = random(19) - 9; write(a[i, j]: 5); end; if odd(i) then writeln(' ') else writeln; end; writeln; writeln('заменяем отрицательные числа на нули, положительные - на единицы: '); writeln; for i : = 1 to m do begin for j : = 1 to n do begin if a[ i, j ] < = 0 then a[ i, j ] : = 0 else a[ i, j ] : = 1; write(a[i, j]: 5); end; if odd(i) then writeln(' ') else writeln; end; end.p.s: не совсем понятно последнее - вывести нижнюю треугольную матрицу. сделать новую или что?

1)дюймовочка

2)змей горыныч (3 головы)

3)снегурочка(сделана из снега)

4)буратино (необычно длинный нос)

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.