Паскаль ИДЗ по программированию. Надо сдать на днях...

[Karina_Vamp]

Нужно сдать ИДЗ по программированию...решить 5 задач. Помогите решить 3 задачи:
1. Зашифровать введенную с клавиатуры строку заменой исходных символов на символы с кодом, большим на три единицы. Провести дешифровку.
2. Найти сумму элементов одномерного массива размером 7. Разделить каждый элемент исходного массива на полученное значение. Результат получить в том же массиве. Массив напечатать в одной строке.
3. Читая матрицу А(MxN) по столбцам, построить вектор В из отрицательных элементов и подсчитать их количество.

Знаю, что они не тяжелые, но решить я их не могу...

[rubius2008]

1.Шифровка

for i:=1 to length(s) do s[i]:=chr(ord(s[i])+3);

дешифровка

for i:=1 to length(s) do s[i]:=chr(ord(s[i])-3);

[rubius2008]

2.

for i:=1 to 7 do s:=s+a[i];
for i:=1 to 7 do a[i]:=a[i]/s;
for i:=1 to 7 do write(a[i],' ');

[rubius2008]

3.

for j:=1 to n do
  for i:=1 to m do if a[i,j]<0 then begin
     k:=k+1;
     b[k]:=a[i,j];
  end;
writeln('Количество отрицательных: ',k);

Если нужны полные тексты программы пиши в асю 600-927-970

[Базиля]

3)

for j:=1 to m do
for i:=1 to n do
if a[i,j]<0 then
begin
inc(k);
b[k]:=a[i,j];
end;

P.S. Опаздал

[Karina_Vamp]

Спасибо вам большое всем....