Помогите пожалуйста с задачами!!!

[Shatyn]

Помогите пожалуйста с задачами!!!
1.min(a-b,a-c,b-c)
2. S=2cos2x+3cos3x+...+15cos15x
3. Найти произведение отрицательных элементов массива.
4.Найти наименьший элемент в матрице.
5.Выяснить, сколько раз в списке встречается фамилия «Иванов».

[juden]

первые две будут выглядеть где то вот так:
1)
x:=a-b;
y:=a-c;
z:=b-c;
if (x<y) and (x<z) then min:=x else
if (y<x) and (y<z) then min:=x else min:=z;
2)s:=0;
for i:=2 to 15 do
s:=s+i*cos(2*x)

[juden]

третья будет выглядеть примерно так:
for i:=1 to k-1 do
for j:=1 to k-1 do
if a[i,j]<a[i+1, j+1] then min:=a[i,j];

[Alex21]

-=4=-
const
N=10; {размер матрицы}
var
a:array[1..N,1..N]of integer;
min:integer; {минимальный элемент}
i,j:integer;
begin
min:=a[1,1];{вначале минимальным считаем 1-й элемент}
for i:=1 to N do
begin
for j:=1 to N do
begin
if min < a[i,j] then {если этот еще меньше, то.. }
min:=a[i,j]; {..его значение присвоим min}
end;
end;
WriteLn('Наименьший элемент :',min); {вывод результата}
end.

[Alex21]

-=5=-
На Delphi подойдет?
Пологается, что списком является заполненный компонент ListBox1.

var
   i,n,count:integer;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   n:=Form1.ListBox1.Count-1;
   count:=0;
     for i:=0 to N do
           if Form1.ListBox1.Items[i]='Иванов' then inc(count);
     Form1.Caption:=inttostr(count);
end;

[Alex21]

-=3=-
juden, наверно то 4-я ))) а это 3-я:

const
   N=10; {размер матрицы}
var 
   a:array[1..N,1..N]of integer;
   Pr:Longint; {произведение}
   i,j:integer;
begin
   Pr:=1;{вначале произведение считаем =1}
for i:=1 to N do
  begin
   for j:=1 to N do
     begin
      if a[i,j] < 0 then {если меньше 0, то.. }
          Pr:=Pr*a[i,j];     {..домножаем к Pr}
     end;
  end;
WriteLn('Произведение отрицательных элементов :',Pr); {вывод результата}
end.