Const N = 5; Var A:array[1..N,1..N] of Char; i,j:integer; Begin WriteLn('Требуемый массив:'); For i:= 1 to N do Begin For j:= 1 to N do Begin if j=i then A[i,j]:='*'; if j>i then A[i,j]:='0'; if j<i then A[i,j]:='1'; Write(A[i,j]) End; WriteLn; End End.
N = 5;
Var
A:array[1..N,1..N] of Char;
i,j:integer;
Begin
WriteLn('Требуемый массив:');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
if j=i then A[i,j]:='*';
if j>i then A[i,j]:='0';
if j<i then A[i,j]:='1';
Write(A[i,j])
End;
WriteLn;
End
End.