Question

заполнить квадратную матрицу из символов размером 10 на 10 элементов таким образом,чтобы выше главной диагонали располагались символы x ,на главной диагонали-символы y а ниже главной диагонали- символы z . Вывести заполненную матрицу на экран.
программа должна вывести на экран-
yxxxxxxxxx
zyxxxxxxxx
zzyxxxxxxx
zzzyxxxxxx
zzzzyxxxxx
zzzzzyxxxx
zzzzzzyxxx
zzzzzzzyxx
zzzzzzzzyx
zzzzzzzzzy

Answer 1

Var a:array[1..10,1..10] of char ;
i,j:integer;
Begin
For i:= 1 to 10 do
begin
for j:=1 to 10 do
begin
if i<j then a[i,j]:='x' else
if i=j then a[i,j]:= 'y' else a[i,j]:='z';
Write(a[i,j]:2);
end;
WriteLn();
end;
end.