Проблема с турбо паскаль

[xSKYx]

Здраствуйте есть несколько задачек, очень прошу помоч решить.

1)Задача на оператор If.

Даны 2 действительных числа X и Y.Если X и Y положительны, но их произведение меньше меньше 100, то оба числа заменить нулями, если хотябы одно из них отрицательно, то заменить их абсолютными значениями, в противном случае минимальное число оставить без изменения, а максимальное возвести в квадрат.

2)Массив.

Даны: натуральные числа k,m, действительные числа a1, a2,...ak и b1,b2,...bm. Среди a1...ak нет повторяющихся членов, Нет их и среди b1...bm.
Найти сумму тех членов последовательности b1...bm которые входят и в последовательность a1...ak

3) массив.
В массиве действительных чисел подсчитать количество элементов больше разности максимального и минимального.

4)Строки.
Дана последовательность символов, заканчивающихся восклицательным знаком. Подсчитать количество букв S в третьем слове данной последовательности (слова разделяются одним или несколькими пробелами)

[GetMax]

xSKYx,а че так "мало" задач написали? Могли бы штук 10 или 15 написать. Задачи то в общем постейшие. Покажите что вы написали и будет вам помощь

[Риндера]

1)

if ((x*y) > 0) and ((x*y) < 100) then ... ;
if (x*y) < 0 then ... else ... ;

2)

for i := 1 to m do
  for j := 1 to k do
    if b[i] = a[j] then inc(sum)

3)

max := a[1][1]; min := a[1][1];
for i := 1 to N do
  for j := 1 to M do
    begin
    if a[i][j] > max then
      begin
      max := a[i][j];
      continue;
      end;
    if a[i][j] < min then min := a[i][j];
    end;

for i := 1 to N do
  for j := 1 to M do
    if a[i][j] > max - min then inc(sum);

4) Не поняла, как символы могут заканчиваться восклицательным знаком.

[Grag]

Риндера,

for i := 1 to m do
  for j := 1 to k do
    if b[i] = a[j] then inc(sum)

и где ж тут сумма членов последовательности b1...bm???
Да и вещественные (ака действительные) числа я бы не стал так сравнивать...( if b[i] = a[j])

По задаче №3, опять же, почему массив двумерный??? Где это оговорено?

4) Не поняла, как символы могут заканчиваться восклицательным знаком.

Восклицательным знаком заканчиваются не символы, а последовательность символов!!!

[xSKYx]

GetMax дело в том что я вообще неразбираюсь в этой штуке. вот поэтому и прошу помощи.
Риндера сасибо за 2 задачки.

[GetMax]

4 Задача

Type
  Massiv=array[1..20] of String;
Var
  Mas:Massiv;
  i,j,kol,Kol_b:Byte;
  Stroka,SubSt:String;
Begin
  ClrScr;
  Write('Введите строку: ');
  Readln(Stroka);
  WRiteln;
  j:=1;
  Kol:=1;
  For i:=1 to Length(Stroka) do
  Begin
    If Stroka[i] <> '!' then
    Begin
      If Stroka[i] <> ' ' then
      Begin
        Mas[j]:=Mas[j]+Stroka[i];
      End
      Else
      If Stroka[i] = ' ' then
      Begin
        Inc(j);
        Inc(Kol)
      End;
    End;
    If Stroka[i] = '!' then Break;
  End;
  Kol_b:=0;
  If Kol >= 3 then
  Begin
    SubSt:=Mas[3];
    For i:=1 to Length(SubSt) do
    Begin
      Inc(Kol_b)
    End;
    Writeln('В 3 слове количество букв = ',Kol_b)
  End
  Else
    Writeln('В строке нет 3-х слов ');
  Readln
End.