Пожалуйста кто нибудь решите две задачи.

[Filin]

1) Для двух последовательностей из N и M элементов соответственно найти произведение максимального элемента первой последовательности и минимального элемента второй последовательности.
2) дано целое n>0 и последовательность из n действительных чисел, среди которых есть хотя бы одно отрицательное число. Найти величину наибольшего из отрицательных чисел этой последовательности.
Заранее Огромное Спасибо!!!

[puporev]

1. Найти максимальный и минимальный элементы в массивах, а потом их перемножить, это такой примитив, что должен сделать сам. Если не учился, ищи в интернете учебники по Паскалю, это есть во всех учебниках.
2.Эта задача сложнее. Здесь нужно сначала собрать все отрицательные элементы в начало массива сортировкой по условию if a[i]<0
for i:=1 to n do
k:=0;
for j:=1 to n do
if a[j]<0 then
begin
k:=k+1;
x:=a[j];a[j]:=a[k];a[k]:=x;
end;
Затем опять же найти максимальный элемент на интервале от i:=1 to k.
Удачи!

[Serge_Bliznykov]

Эта задача сложнее. Здесь нужно сначала собрать все отрицательные элементы в начало массива сортировкой по условию if a[i]<0

не согласен... зачем такие сложности?...
ведь задача стоит в том, чтобы найти ОДНО наибольшее отрицательное число...
достаточно (имхо) одной дополнительной переменной, например, MaxNegative:

MaxNegative := 0;
for i:=1 to n do
  if (a[i]<0) then begin
    if MaxNegative = 0 then MaxNegative := a[i]
    else
       if MaxNegative<a[i] then MaxNegative := a[i]
  end;

[puporev]

Согласен, не сообразил.

[Filin]

А вы не могли бы написать решение полностью ? Заранее спасибо!!!

[puporev]

Полностью, это program kkkkk; uses crt; и т.д. + вывести? Спиши с любого кода, который попадется первым.

[Filin]

Я имею ввиду здесь на форуме напиши решение полностью. У меня просто пока паскаля нет в данный момент я проверить не могу? И первое задание если можно . я хоть спишу а потом проверю. Сам никак не пойму.СПАСИБО!!!!