Правила форума
Прочтите прежде чем задавать вопрос!
1.Дана квадратная матрица A[N,N].Записать на место отрицательных элементов матрицы нули,а на место положительных - единицы.Вывести на печать нижную треугольную матрицу в общепринятом виде.
Program z1;.
uses crt;
Var
k,I,J,N : Integer;
A:array [1..100,1..100] of Integer;
Begin
clrscr;
Writeln ('Введи размерность матрицы');
readln (N);
writeln('vvedi 3na4eniya matrici');
For i:=1 to n do begin
For j:=1 to n do
a[i,j]:=random(10)-5;
end;
For i:=1 to n do begin
For j:=1 to n do write(a[i,j]:4);writeln;
end;
writeln('*****');
For i:=1 to n do begin
For j:=1 to n do begin
If a[i,j]<0 then begin;a[i,j]:=0;end;
If a[i,j]>0 then begin;a[i,j]:=1;end;
end;end;
Вопрос: а как мне вывести на печать нижную треугольную матрицу в общепринятом виде?
2.{Cовсем другая задача} Нужно заполнить матрицу в виде:
1 2 3 ... n-2 n-1 n
2 1 2 ... n-3 n-2 n-1
3 2 1 ... n-4 n-3 n-2
. . . ... . . .
n-1 n-2 n-3 ... 2 1 2
n n-1 n-2 ... 3 2 1
