хорошо))
вот пытался изменить эту программу.хотел, чтобы матрицу надо было вводить самому, а не через random.но не могу найти ошибку.помогите пожалуйста!
uses crt;
VAR
a:Array[1..4,1..4] of Integer;
N1,N2,N3,
N:integer;
i,j:byte;
BEGIN
clrscr;
writeln('Введите размер матрицы');
readln(N);
writeln('Введите элементы матрицы');
For i:=1 to N do
For j:=1 to N do
begin
readln(a[i,j]);
end;
WriteLn;
N1:=0;
N3:=0;
N2:=0;
For i:=1 to N do
For j:=1 to N do
begin
If (j>i) and (A[i,j]<>0) then Inc(N1);
If (j=i) and (A[i,j]<>0) then Inc(N2);
If (j<i) and (A[i,j]<>0) then Inc(N3);
end;
WriteLn('N1= ',N1);
WriteLn('N2= ',N2);
WriteLn('N3= ',N3);
ReadLn;
END.