Зеркальное отображение и диагонали

[Lisёноk]

Добрый день)))
Имеются следующие ситуации:
а) создать массив и отобразить его зеркально
б) опять-таки создать массив и заменить все элементы выше главной диагонали на нули

С созданием массива проблем не возникает. А вот со второй половиной проблемы((( Если вас не затруднит, объясните, пожалуйста, что необходимо сделать? Какой нужно написать код?

[Snejnaya]

видимо все-таки матрица, а не массив. пускай размер m строк, n столбцов.

ситуация 1 Просто для каждой строки нужно поменять местами элемент 1 и n, 2 и (n-1) и т.д.и наконец элемент с номером (n div 2) и (n-(n div 2))

for i:=1 to m do
begin
for j:=1 to (n div 2) do
begin
chislo:=mas[i,j];
mas[i,j]:=mas[i,n-j];
mas[i,n-j]:=chislo;
end;
end;

это будет зеркально по горизонтали.

ситуация 2
здесь будет квадратная матрица n*n, наверно, раз говорится "главная диагональ". Если нет, тогда алгоритм ниже считает главной диагональю диагональ mas[i,j] при i=j; i=1,2,3...

for i:=1 to m do
for j:=(i+1) to n do
mas[i,j]:=0;

[Lisёноk]

Огромное вам спасибо))) Вы не представляете как вы меня выручили)))