помогите решить две задачки

[Виталька]

на рисунку вложеном есть две задачки помогите решыть, очень надо

[PAWLO1993]

В первой задаче дан масив???

[Виталька]

да нету, вот все что было там

[Виталька]

Даны натуральное число n, действительные числа x1,..xn. Вычислить
X1*Xn+X2*Xn-1+...+Xn*X1
}

const
maxN = 30; {максимально возможное количество чисел (элементов массива)}
var
n, i : integer;
Mas : array[1..maxN] of Real;
Sum : real;
begin
write('Введите число элементов массива: ');
Readln(n);
if ((n > MaxN) and (n < 2))
or odd(n) then Writeln('Введено неверное количество') else
begin
Writeln('Ввод массива:');
for i := 1 to n do
begin
Write('x',i,':'); Readln(Mas[i]);
end;
Sum := 0;
for i := 0 to n div 2 -1 do
Sum := Sum + Mas[i+1]*Mas[n-i];
Writeln('Сумма = ', Sum);
end;
end.

вот есть что то похожее

[PAWLO1993]

Задача №1
есле я верно понял,то так:

Program NoName;
var n,i:longint; s,a:extended;
Begin a:=0;
readln(n);
for i:=1 to n do a:=a+i;
s:=a*a*2;
writeln(s:0:0);
end.

То тебе масив нужен или нет?

[Виталька]

да масив нужен

[PAWLO1993]

тогда так:

Program NoName;
var n,i:longint; s,a:real;
b:array[1..10000] of real;
Begin a:=0;
write('Введите число элементов массива: ');
readln(n);
for i:=1 to n do begin 
write('b[',i,']:= ');
readln(b[i]);
a:=a+b[i];
end;
s:=a*a*2;
Writeln('сумма = ', S:0:0);
end.

From Stilet: Оформляй посты читабельно. Тег [code] для кода.

[PAWLO1993]

Во второй задаче какие входные даные???

[Виталька]

любые значения

[Olympian]

Какие именно? Координаты вершин, длины сторон, площади и тд и тп - возможные варианты. Какой из них?