4 задачи и куча вопросов...., практика..... Опции

[Анка]

1. Даны две последовательности a1 ≤ a2 ≤ ... ≤ аn и b1 ≤ b2 ≤ ... ≤ bn. Образовать из них новую последовательность чисел так, чтобы она тоже была неубывающей (дополнительный массив не использовать).

2. Расположить столбцы матрицы D[M, N] в порядке возрастания элементов k-ой строки (1 ≤ k ≤ М).

3. Реализовать набор подпрограмм для выполнения следующих операций над векторами: а) сложение; б) вычитание; в) скалярное умножение векторов; г) умножение вектора на число; д) нахождение длины вектора.
1) Дан массив A – массив векторов. Отсортировать его в порядке убывания длин векторов.
2) С помощью датчика случайных чисел сгенерировать 2N целых чисел. N пар этих чисел задают N точек координатной плоскости. Вывести номера тройки точек, которые являются координатами вершин треугольника с наибольшим углом.

4. Дана строка, содержащая произвольный текст. Выяснить чего в нем больше: русских букв или цифр.

Мало того, что мне нужно решить все эти задачи, но мне еще нужно объединить их одним меню (хотя это я сделала). Причек все это надо реализовать с выбором способа ввода - с клавы, из файла или случайная генерация.
Из-за практики появилось много вопросов. Может кто-нибудь поможет?
1. Не могу решить 1 задачу... что-то не получается... ввести ввожу, а вот дальше... тоже самое обстоит со второй...
2. не понимаю, как можно реализовать 2 пункт в 3 задаче...... просто даже толком не понятно, что нужно...
ну пока вроде всё...

[Анка]

volvo, я не знаю, что делать..... а столбцы это я с Romtek`ом обсуждала........ у меня ничего не идет.............. :bye2: в строках у меня при любой случайной генерации выдается сообщение, что букв и цифр поровну................................

[volvo]

My fault ... Извиняюсь, я просто поставил лишнюю запятую... Вот так измени (то, что я тебе раньше давал):

  { а здесь - собственно обработка строки (если нужно) }
  if(str_ok) then begin

    cifri:=0; bukvi:=0;

    for i := 1 to length(str) do
      if upcase(str[i]) in ['A'..'Z'] then bukvi:=bukvi + 1
      else if str[i] in ['0'..'9'] then cifri:=cifri + 1;

    if bukvi>cifri then writeln ('V dannoi stroke bol`she bukv')
    else if cifri>bukvi then writeln ('V dannoi stroke bol`she cifr') {; <--- запятой быть НЕ ДОЛЖНО !!!  }
           else writeln ('V dannoi stroke bukv i cifr porovnu');
  end;

[Анка]

volvo, я ее и не ставила..... правила я знаю...... но мне от этого не легче....

[volvo]

Проверь PM ...