помогите пожалуйста сделать программы

[niuta002]

1)дана матрица А (m,n),элементы которой целые числа. напишите программу, которая находит и выводит на экран наименьший элемент матрицы, а так же номер строки и номер столбца, соответствующие этому элементу.
2)дано натуральное число n.вычислите сумму s=2*2+3*4+4*6+5*8+6*10+...+n*2+*(n-1).
3)составьте программу, которая записывает числа из файла А в файл В без повторения. например, из последовательности 1,3,5,3 в В будет 1,3,5.
4)напишите программу, которая создает текстовый файл, содержащий информацию о сотрудниках некой фирмы. каждый компонент этого файла должен содержать следующие данные:
имя, фамилия, год рождения, зарплата, пол.
программа должна содержать следующие команды:
-создание файла
-афиширование данных из файла
-добавление данных в файл
-определяет и отображает список сотрудников мужского пола
-выводит на экран все данные о сотруднике, если известны его фамилия и имя

[Bugrimov]

Раздел фриланс для Вас я так полагаю. Если нет, то самостоятельные попытки решения...

[newerow1989]

Задача 1:

const m=10;
      n=8;
var a:array[1..m,1..n] of byte;
    i,j,i1,j1,min:byte;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         a[i,j]:=Random(210);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   i1:=1;
   j1:=1;
   min:=a[i1,j1];
   For i:=1 to m do
      For j:=1 to n do
         If min>a[i,j] then
         begin
            i1:=i;
            j1:=j;
            min:=a[i1,j1];
         end;
   Writeln('a[',i1,',',j1,'] = ',min);
   Readln;
end.

Задача 2:

const n=8;
var i,s:integer;
begin
   s:=0;
   For i:=1 to n do
      s:=s+(i+1)*i*2;
   Writeln(s);
   Readln;
end.

Сойдет?