Нужна помощь

[sergy88]

Выручайте ребята..через 3 часа экзамен по паскалю, нужно решить 3 задачки...я полный ноль (((

1.Значение функции f(x)=1/2+sinx/2 определены при x=x0(hx)xn. Определить сколько значений функции f(x) при заданных х являются отрицательными и сколько положительными ?.

2. Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр.

3. 3. Найти сумму элементов массива с четными индексами.

[alex_fcsm]

const n=20;
var a:array[1..n] of integer;
i,sum:integer;

begin
for i:=1 to n do
 a[i]:=random(100);
 sum:=0;
 for i:=2 to n do
  if i mod 2=0 then sum:=sum+a[i];
writeln(sum);

end.

[sergy88]

Благодарю....еще 2 штучки))))) плиззз....

[alex_fcsm]

var x,a,b,i:integer;

begin
 repeat
 readln(x);
 until (x>999)and(x<10000);
 a:=0;b:=0;
 for i:=1 to 4 do
   if i<3 then begin
                a:= a + x mod 10;
                x:= x div 10;
               end
      else begin
             b:= b + x mod 10;
             x:= x div 10;
           end;
if a=b then writeln('Equal')
   else if a<b then writeln('First')
     else writeln('Second');
end.

[alex_fcsm]

Если правильно понял условие

const n=10;
var x:array[1..n]of real;
    i,p,m:integer;
    f:real;
    
begin
for i:=1 to  n do
 read(x[i]);
p:=0;m:=0;
for i:=1 to n do
begin
 f:=0.5+sin(x[i])/2;
 if f>0 then inc(p)
   else if f<0 then inc(m);
end;
writeln('>0:',p);
writeln('<0:',m);
end.

[sergy88]

Благодарю....сенк огромное