Нужна помощь в среде Delphi с задачами.

[KotoRU]

Строки:
1. Найти в предложении слова длиной не более 6 символов, в которых количество
гласных букв составляет не менее 30%.
Массивы
2. Для массива А, состоящего из N элементов найти количество элементов массива,
начиная со второго, значение которых больше суммы индексов элементов, стоящих
перед ними;
Двумерные массивы:
3. Создать приложение, осуществляющее заполнение двумерного массива пользователем,
с помощью компонента StringGrid. Найти сумму элементов массива стоящих на
нечетных местах, нумерация идет последовательно (номер элемента следующей строки
не начинается заново)

Нужен код решённых задач, при помощи Delphi. Кому не тяжело помогите пожалуйста. Заранее спасибо.

[Михаил Смирнов]

%uu0442е - реализую

[KotoRU]

Сообщение от Михаил Смирнов

%uu0442е - реализую

Ну так реализуйте, почему сразу тут не написали?

[min@y™]

Ну так реализуйте, почему сразу тут не написали?

патамушта это коммерческая тайна.

[indexx]

Ну так реализуйте, почему сразу тут не написали?

По тому что намёков не понимаете. Ни кто не будет решать задачи за спасибо. Хотя нет. Может кто и найдётся. Задачки на две строчки решения.

[Вадим Мошев]

KotoRU

Нужен код решённых задач, при помощи Delphi

Я могу вообще создать готовые приложения (думаю, вам это и надо) за вознаграждение.
Если вы согласны, тогда пишите на адрес: vadimFreelance (coбака) yandex {тoчка} ru
по возможности также укажите другие контакты (Skype, ICQ, страница вконтакте), так как посредством них общение протекает быстрее.

[Foreseen]

2. Для массива А, состоящего из N элементов найти количество элементов массива,
начиная со второго, значение которых больше суммы индексов элементов, стоящих
перед ними;

Для затравки-

procedure TForm1.Button1Click(Sender: TObject);
var
i, n: integer;
begin
n:=0;
randomize;
 for i := 2 to 100 do
  begin
   A[i]:=random(100);
    if A[i]>i*2-3 then
    n:=n+1;
    label1.Caption:=inttostr(n);
  end;
end;

Хотите больше? Любой труд должен быть оплачен