Добрый день.Если можете,то помогите мне выяснить два вопроса:
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;
а в чем, по-твоему, заключается ее треугольность, если условие про =0 необязательное??
вторая - имхо, заполнять надо по половинкам. отдельно то, что выше диагонали, отдельно то, что ниже.
по-моему, ты сам не совсем понимаешь, чего хочешь добиться...
нижняя треугольная матрица - это матрица вполне конкретного вида. вверху нули, внизу какие-то цифры.
то есть, видимо, если у тебя она получится не такой - надо забить половину нулями....
Tadalis Sx Soft Experience
Baclofene