помощь с решением следующих задач

[BR@BUS]

Здраввствуйте. Вот мне нужна помощь с решением следующих задач:

1). Даны натуральные числа n, a1,…,an, где n≤2500. Найти члены ak последовательности a1,…,an, удовлетворяющие условию 2k< (ak-1+ak+1)/2, и определить их количество.
2) Треугольник задан координатами своих вершин.Найти периметр треугольника.
3) Даны действительные положительные числа a,b,c,d. Выяснить,можно ли прямоугольник со сторонами a,b уместить внутри прямоугольника со сторонами c,d так,чтобы каждая из сторон одного прямоугольника была параллельно или перпердикулярна каждой стороне второго прямоугольника.

И это все надо написать на паскале.... Пожалуйста помогите, очень надо...

[Tayfun]

2. вводим три вершины

read(x1,y1,x2,y2,x3,y3);

Находим их длины

d1:=sqrt(sqr(x1-x2)+sqr(y1-y2));
d2:=sqrt(sqr(x2-x3)+sqr(y2-y3));
d3:=sqrt(sqr(x3-x1)+sqr(y3-y1));

Теперь находим периметр

p:=d1+d2+d3;

[Tayfun]

3.Вводим a,b,c,d

read(a,b,c,d);

Теперь сравниваем на сравнение

if ((a<=c) and (b<=d)) or ((a<=d) and (b<=c)) then writeln('Поместиться') else writeln('Не поместиться');

[Tayfun]

2*k< (a[k-1]+a[k+1])/2
Верна ли моя догадка,что k-1 и k+1 это индексы!!!?

[BR@BUS]

Tayfun : да это индексы

спасибо за первые 2 задачки.

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

2*k< (a[k-1]+a[k+1])/2
Верна ли моя догадка,что k-1 и k+1 это индексы!!!?

2 в степени k
k-1 и k+1 это индексы для a

[Tayfun]

Сообщение от BR@BUS

Tayfun : да это индексы

Ну тогда проблем нету...

Вводим n и исходный массив

read(n);
for i:=1 to n do
read(a[i]);

Находим количество членов поледовательности удовлетворяющих условию

for k:=1 to n do
if 2*k< (a[k-1]+a[k+1])/2 then begin write(a[k],' '); t:=t+1;end;

Выводим найденно нами количество

writeln(t);

[BR@BUS]

Спасибо огромное! тема закрыта =)

[BR@BUS]

Даны натуральные числа n, a1,…,an, где n≤2500. Найти члены ak последовательности a1,…,an, удовлетворяющие условию
2*k< (ak-1+ak+1)/2, и определить их количество.

program test;
var
 a: array [1..2500] of integer;
 n,k,t,i: integer;
 begin
 read(n);                                //    Вводим   n и исходный массив
   for i:=1 to n do   
 read(a[i]);   
   t:=0;

   for k:=1 to n do          //    Находим кол-во членов последовательности  удовлетворяющих условию
   if 2*k< (a[k-1]+a[k+1])/2 then begin 
    write(a[k],' '); 
   t:=t+1;
 end;
   
 writeln(t);      //   Вывод найденного кол-ва   
  readln;
end.

Неработает. Помогите пожалуйста(

[Карась]

Неправильно считает или ссылаетсяна ошибку?

for i:=1 to n do 
read(a[i]);

А чему примерно должно раняться n?

[BR@BUS]

Сообщение от Карась

Неправильно считает или ссылаетсяна ошибку?

for i:=1 to n do 
read(a[i]);

А чему примерно должно раняться n?

где n≤2500.