Информатика, паскаль

[xJohnx]

Ну...в общем задачя звучит так: помогите можалуйста

Вычислить сумму элементов последовательности а1, а2 ,..... а23, имеющих парные индексы. Найти сумму элементов одномерного массива, которые больше 4

[kakawkin]

вот один из вариантов:

program tt;
var a:array [1..9] of integer;s,i:integer;
begin
 for i:=1 to 9 do
  begin
   write('Enter a[',i,']= ');
   readln(a[i]);
  end;
 s:=0;
 for i:=1 to 9 do
  begin
   if a[i]<10 then a[i]:=0;
   s:=s+a[i];
  end;
 writeln('OTBET= ',s);
 readln;
end.

[ROMA2PVT]

Найти сумму элементов одномерного массива, которые больше 4

program kr;
var a:array [1..13] of integer;
s,i,n:integer;
begin
randomize;
  writeln('Введите количество элементов массива: ');
  readln(n);
 for i:=1 to n do
  begin
   a[i]:=random(10);
     writeln('a(',i,')=',a[i]);
    end;
 s:=0;
 for i:=1 to n do
  begin
if a[i]>4 then
   s:=s+a[i];
  end;
 writeln('OTBET= ',s);
 readln;
end.

вторая.

[ROMA2PVT]

program tt;
var a:array [1..50] of integer;s,i:integer;
begin
 for i:=1 to 12 do
  begin
   write('Enter a[',i,']= ');
   readln(a[i]);
  end;
  s:=0;
 for i:=1 to 12 do
  begin
  if i mod 2=1 then a[i]:=0;
   s:=s+a[i];
  end;
 writeln('OTBET= ',s);
 readln;
end.

Вторая может с чётными индексами а не спарными.

if a[i]<10 улыбнуло

[Morik94]

Помогите решить!!
в массиве состоящем из 15 элементов заменить числа находящиеся в интервале от 10 до 50 на удвоенную сумму

[Hacker19_90]

Удвоенную сумму чего