Условие Ежегодный Московский Благотворительный Аукцион проводится по следующим правилам: для каждого лота участники называют свои ставки, при этом не показывая их другим участникам. Человек, заплативший наименьшую сумму, которая не совпадает с суммами никакого другого участника получает приз организаторам аукциона по данным ставкам выигрышную. Формат входных данных Cначала вводится число N, общее количество ставок (1≤N≤1000). В следующей строке задается N натуральных чисел, разделенных пробелами, не превышающие 109. Формат выходных данных Требуется вывести одно число — наименьшую ставку среди тех, которые встречаются ровно один раз. Гарантируется, что такая ставка существует. входные данные 9 5 4 3 2 2 1 2 1 4 выходные данные 3 входные данные 5 1 1 1 2 1 выходные данные 2

Uses
  Crt;

const
  n = 10;

type
  V = array[1..n] of integer;

function Mid(var a: V): double;
var
  i, s: integer;
begin
  s := 0;
  for i := 1 to n do s := s + a[i];
  Mid := s / n
end;

var
  x: V;
  i, j: integer;
  m: double;

begin
  Randomize;
  m := 0;
  for i := 1 to 5 do
  begin
    Writeln('Элементы массива ', i);
    for j := 1 to n do
    begin
      x[i] := Random(100);
      Write(x[i]:3)
    end;
    Writeln;
    m := m + Mid(x)
  end;
  Writeln('Среднее арифметическое пяти массивов равно ', m)
end.

Тестовое решение:
Элементы массива 1
 95 44 54 86 52 39 28 79 29 43
Элементы массива 2
 75 55 26 22 12 93 34 60 34 42
Элементы массива 3
 55 80 50 54 52 46 85 47 11 86
Элементы массива 4
 33 35  5 64 36 66 76 55 24 43
Элементы массива 5
 31 63 66 11 88  4 31 99 28 39
Среднее арифметическое пяти массивов равно 76.6

{ Треугольник задан координатами вершин (x1;y1),(x2;y2),(x3;y3).

Найти площадь треугольника (используя формулу Герона) }

uses crt;

var x1,x2,x3,y1,y2,y3,a,b,c,s,p : real;

begin

clrscr;

write('x1=');readln(x1);

write('y1=');readln(y1);

write('x2=');readln(x2);

write('y2=');readln(y2);

write('x3=');readln(x3);

write('y3=');readln(y3);

a:=sqrt(sqr(x1-x2)+sqr(y1-y2));

b:=sqrt(sqr(x2-x3)+sqr(y2-y3));

c:=sqrt(sqr(x3-x1)+sqr(y1-y3));

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

write('s=',s);

readln;

end.

формула герона!

А так я думаю эти задачки очень даже не сложные, только формулы надо знать!! !

периметр- это сумма всех сторон

например

begin

writteln( 'введите 3 стороны' ) ;

readln(a,b,c);

writeln(' периметр = ',a+b+c);

readln;

end.

Вот и все!! !

Удачи!