Pascal.3 задачи

[ромка)]

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

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

[mr_s]

Это для двуменгой матрицы

program abc;

Uses Crt;

Var Matrix: Array[1..5, 1..5] of Real;
i, j: Byte;
Begin

Clrscr;
Randomize;

Writeln('Matrix (5x5)');

for i:= 1 to 5 do
begin
for j:= 1 to 5 do
begin
Matrix[i, j]:= Random(5);
Write(Matrix[i, j], ' ');
end;
Writeln;
end;

for i:= 1 to 5 do
for j:= 1 to 5 do
Matrix[i, j]:= Matrix[i, j] - Matrix[5, j];

Writeln;
Writeln('New Matrix (5x5)');

for i:= 1 to 5 do
begin
for j:= 1 to 5 do
Write(Matrix[i, j], ' ');
Writeln;
end;
End.

[mr_s]

Не знал, где взять базу студентов, поэтому набил вручную.

program abc;

Uses Crt;

Type Student = record
Surname: String;
HomeNeed: Boolean; //нуждается в общежитии
WorkTime: Byte; //стаж
WorkTeacher: Boolean; //работал ли учителем
University: String; //что закончил
Language: String;
end;

Var M: Array[1..6] of Student;
i: Byte;
Begin

Clrscr;

M[1].Surname:= 'Petrov';
M[1].HomeNeed:= True;
M[1].WorkTime:= 3;
M[1].WorkTeacher:= False;
M[1].Language:= 'Russian';
M[1].University:= 'MGU';

M[2].Surname:= 'Koledov';
M[2].HomeNeed:= False;
M[2].WorkTime:= 5;
M[2].WorkTeacher:= True;
M[2].Language:= 'Russian';
M[2].University:= 'MGU';

M[3].Surname:= 'Dolgov';
M[3].HomeNeed:= False;
M[3].WorkTime:= 10;
M[3].WorkTeacher:= True;
M[3].Language:= 'Russian';
M[3].University:= 'MGU';

M[4].Surname:= 'Klubkov';
M[4].HomeNeed:= False;
M[4].WorkTime:= 10;
M[4].WorkTeacher:= True;
M[4].Language:= 'Russian';
M[4].University:= 'MGU';

M[5].Surname:= 'Sidorov';
M[5].HomeNeed:= False;
M[5].WorkTime:= 6;
M[5].WorkTeacher:= False;
M[5].Language:= 'Russian';
M[5].University:= 'MGU';

M[6].Surname:= 'Vetrov';
M[6].HomeNeed:= True;
M[6].WorkTime:= 2;
M[6].WorkTeacher:= False;
M[6].Language:= 'Russian';
M[6].University:= 'MGU';

for i:= 1 to 6 do
if M[i].HomeNeed = True then
Writeln(M[i].Surname);

End.

[ромка)]

по поводу первой:что случилось с последней строкой(одни нули)
по поводу второй:мне надо самому вводить все данные о учениках,общежитии и т.д.а тут просто это уже в самой программе

по поводу первой:что случилось с последней строкой(одни нули)*??????

[mr_s]

Насчет массивов:
замени в тексте программы

for i:=1 to 5 do
for j:= 1 to 5 do
Matrix[i, j]:= Matrix[i, j] - Matrix[5, j];

на

for i:=1 to 4 do
for j:= 1 to 4 do
Matrix[i, j]:= Matrix[i, j] - Matrix[5, j];

[mr_s]

Насчет студентов
добавь
var s, lg, un: String;
hn, wt, th: Byte;

и вместо ручного ввода напиши вот это

un:= '';
s:= '';
lg:='';

for i:= 1 to 10 do
begin
Writeln('Vvedite Familiu');
Readln(s);
M[i].Surname:= s;

Writeln('Nujno li obshejitie (1 ili 0)');
Readln(hn);
if hn = 1 then
M[i].HomeNeed:= True
else
M[i].HomeNeed:= False;

Writeln('Vvedite rabo4ee vremia');
Readln(wt);
M[i].WorkTime:= wt;

Writeln('U4itel?' (1 ili 0));
Readln(th);
if th = 1 then
M[i].WorkTeacher:= True
else
M[i].WorkTeacher:= False;

Writeln('Vvedite language');
Readln(lg);
M[i].Language:= lg;

Writeln('Vvedite univer');
Readln(un);
M[i].University:= un;
end;

[ромка)]

что то я по третей запутался не мог бы выложить код полностью.пожалуйста очень надо

Помогите пожалуйста с третим заданием!!!!выложите код если не трудно