Question

Заполнить квадратную матрицу из символов размером 10 на 10 элементов таким образом,чтобы выше главной диагонали располагались символы x ,на главной диагонали-символы y а ниже главной диагонали- символы z . вывести заполненную матрицу на экран. программа должна вывести на экран- y zy zzy zzzy y y yxxx yxx yx y

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.