Pascal.3 задачи

[ромка)]

1)Одномерные массивы
Дан целочисленный вектор М(15).Определить число соседств из двух чисел разного знака.
2)Двумерные массивы
Дана действительная квадратная матрица Х(5,5).Требуется преобразовать матрицу: поэлементно вычесть последнюю строку из всех строк, кроме последней.
3)Комбинированный тип данных
После поступления в ВУЗ о студентах собрана информация: фамилия, нуждается ли в общежитии, стаж, работал ли учителем, что окончил, какой язык изучал. Составить программу, определяющую сколько человек нуждаются в общежитии.

Помогите решить пожалуйста в долгу не останусь

[Хыиуду]

1.

Код: Выделить всё

function sign(x: integer): shortint;
begin
  if x=0 then sign=0 else sign=round(x/abs(x));
end;
for i:=1 to 14 do sum:=sum+ord(sign(M[i])*sign(M[i+1])=-1);

2. for i:=1 to 4 do
for j:=1 to 5 do
dec(X[i,j],X[5,j]);
3. Было миллион раз, смотрите в этом разделе

[ромка)]

for i:=1 to 4 do
for j:=1 to 5 do
dec(X[i,j],X[5,j])
можно пожалуйста по подробнее 1 и 3юю сделал а со второй проьлема

[Хыиуду]

А что тут можно поподробнее сделать? Описать переменные и заполнить матрицу числами от балды (т.е. генератором случайных чисел) - это несложно. Если непонятно, что такое dec - ставим на него курсор и нажимаем Ctrl+F1