Задачки Delphi (VCL)

[CoolEnemy]

Ребятишки, помогите пожалуйста с заданиями в Delphi VCL (Form), буду очень благодарен!!!

1.Вводятся два целых числа. Определить, сколько четных чисел находится между ними и найти их сумму.
2.Дан массив из 50 чисел. Заполните его случайными числами. Определить, сколько в нем элементов, отличных от последнего элемента. Вывести их количество.
3.Дан двумерный массив A [i, j], где i = 1,2, ..., n; j = 1, 2, ..., m. Распечатать в строку элементы, расположенные в первом столбце и найти сумму элементов последней строки.
4.Введите текст телеграммы и стоимость одного слова. Определить стоимость телеграммы. При вводе текста запятые обозначаются словом ЗПТ, точки - словом Т.

[Artsiom]

Проблема в поиске алгоритмов решения или проблема накидать на форму нужные компоненты?

[CoolEnemy]

Сообщение от Artsiom

Проблема в поиске алгоритмов решения или проблема накидать на форму нужные компоненты?

да проблема в самих кодах, накидать на форму это не проблема)

[Artsiom]

1. http://znanija.com/task/6664074
2. http://www.realcoding.net/articles/a...massivami.html
Озаглавлена как Задача №3

4. http://www.cyberforum.ru/pascalabc/thread637874.html

Ну, и 3 задача, наверно, настолько лёгкая, что её нет на первой странице поисковых систем.

[Stilet]

А попытки какие либо были?

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

Я правильно понимаю, что, исходя из расшифровки аббревиатуры VCL (Visual components library), следует то, что задачи сводятся к обычному размещению на форуме органов управления программой (Edit, Button, memo, etc) и прописыванию нужных обработчиков событий?
Если да, то обращайтесь ко мне на почту vadimFreelance (coбака) yandex (точка) ru
помогу за небольшое вознаграждение. Подробнее по ссылке у меня в подписи

[CoolEnemy]

Сообщение от Artsiom

1. http://znanija.com/task/6664074
2. http://www.realcoding.net/articles/a...massivami.html
Озаглавлена как Задача №3

4. http://www.cyberforum.ru/pascalabc/thread637874.html

Ну, и 3 задача, наверно, настолько лёгкая, что её нет на первой странице поисковых систем.

спасибо большое, насчет 4 задания, можешь подсказать в чем проблема?

var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:string;
c:integer;
kvo:integer;
begin
kvo:=0;
a:=a+' ';
  a:=Edit1.Text;
  c:=strtoint(Edit2.Text);
while Pos(' ',a)>0 do
  begin
    b:=Copy(a,1,Pos(' ',a)-1);
    Delete(a,1,Pos(' ',a));
    if (b<>'ЗПТ') and (b<>'T')
    then inc(kvo);
    Edit3.Text:=b;
  end;
Edit4.Text:=inttostr(kvo*c);
end;
 
end.