Работа с массивами и строками

[ЛераСочи]

Приветик,помогите решить два задания,а то сессия скоро,чувствую,не на тот я факультет пошла. спасибо
1-В квадратной матрице порядка N найти сумму элементов побочной диагонали и разделить на полученную сумму все элементы последнего столбца.

2-Дана символьная строка. Заменить все четные символы '!' точками, вывести полученную строку.

[Don Karleone]

язык какой?
вот на паскале:

const
  N = 5;
var
  mas: array [1..N,1..N] or real;
  i, j: byte;
  Sum: real;
begin
  for i:=1 to N do
    for j:=1 to N do
      mas[i,j]:=random(30)*random;
  Sum:=0;
  for i:=N downto 1 do
    Sum:=Sum + mas[i,N-i+1];
  for i:=1 to N do
    mas[i,N]:=mas[i,N]/Sum;
  {ну а тут надо вывести массив на экран}
end;

вроде так, хотя я не проверял

[ЛераСочи]

борланд с .........

[unbanned]

2-Дана символьная строка. Заменить все четные символы '!' точками, вывести полученную строку.

на паскале

var i:integer;
s:string;
begin
writeln('введите строку');
readln(s);
for i:=1 to length(s) do
if (copy(s,i,1)='!') and (i mod 2=0) then begin
insert('.',s,i);
delete(s,i+1,1);
end;
writeln('Полученная строка: ',s); 
end.

немного непонятно задание... четные в смысле в строке? т.е.
!!!!!!! -> !.!.!.!
или в смысле каждый второй?
d!s!!! -> d!s!.!

[ЛераСочи]

спасибо,но у меня борланд с