Уважаемые программисты!

[Дашусик]

Помогите решить задачи на массивы и задачу на функцию в Паскале

На функцию: написать функцию, вычисляющую наименьшее общее кратное двух чисел

На эти задачи у меня есть набранные программы но они почему то не работают
Вот на массивы:
1. удалить элемент массива кратный 5. Если таких элементов нет, выдать сообщение "элементы для удаления не найдены". Если таких элементов несколько, удалить последний из найденных.
2. имеются два линейных массива вещественных чисел. Создать из них один линейный массив, в котором сначала идут отрицательные элементы, затем нулевые и затем положительные.

Вот на эти задачи программы:
1.

Program pr;
var n,i,max:integer; a:array[1..10] of integer;
begin
write('введите колличество элементов массива n:');
readln(n);
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
max:=abs(a[1]);
for i:=1 to n do begin
if max<abs(a[i]) then a[i]:=0;
write(a[i],' ');
end;
readln;
end.
2.
Program pr;
Type Da=array[1..10] of real;
Type Ye=array[1..10] of real;
var n,i,j:integer; a:Da; b:Ye;
begin
write('введите колличество элементов массива n:');
readln(n);
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
for j:=1 to n do begin
write('b[',j,']=');
readln(b[j]);
end;
if (a[i]<0) and (b[j]<0) then write(a[i],b[j],' ');
if (a[i]=0) and (b[j]=0) then write(a[i],b[j],' ');
if (a[i]>0) and (b[j]>0) then write(a[i],b[j],' ');
writeln;
readln;
end.

И вот последняя:
найти наибольший и наименьший элементы двумерного массива вещественных чисел b(m,n)?

From Stilet: Автор, пользуйся редактированием поста и тегами для кода

[ryton]

Во второй задаче где
if (a[i]<0) and (b[j]<0) then write(a[i],b[j],' ');
if (a[i]=0) and (b[j]=0) then write(a[i],b[j],' ');
if (a[i]>0) and (b[j]>0) then write(a[i],b[j],' ');
перед ними нужен цикл.Попробуй так
for i:=1 to n do
for j:=1 to n do begin
f (a[i]<0) and (b[j]<0) then write(a[i],b[j],' ');
if (a[i]=0) and (b[j]=0) then write(a[i],b[j],' ');
if (a[i]>0) and (b[j]>0) then write(a[i],b[j],' ');
writeln;
end;
только мне почему то кажется,что он все выведет,если не получится,то так
for j:=1 to n do begin
f (a[i]<0) and (b[i]<0) then write(a[i],b[i],' ');
if (a[i]=0) and (b[i]=0) then write(a[i],b[i],' ');
if (a[i]>0) and (b[i]>0) then write(a[i],b[i],' ');
writeln;
end;

[Дашусик]

Спасибочки а что там с остальными задачами?

[Дашусик]

Ну где вы все?????? помоги пожалуйста... завтра сдавать

[Дашусик]

Если можете пишите еще

[puporev]

В личку загляните.

[Дашусик]

На первую задачу это не эта программа извините

[Дашусик]

1 задача на которую написана программа звучит так: дан массив целых чисел, содержащий 10 элементов. Заменить максимальный по модулю отрицательный элемент массива нулем. Я ее тоже не могу сделать где то ошибка, т.е. не выводится правильный ответ

[Дашусик]

Спасибо... больше не надо...