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

[xJohnx]

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

[kakawkin]

обьясни плз что такое парные индексы и я постараюсь сделать

[ROMA2PVT]

парные индексы

Может чётные?Автор Ау.Ответью

[xJohnx]

2,4 , 6,! четные, парные=))

[ROMA2PVT]

program mas;
var
 a :array[1..10] of integer;
 i,k,d :integer;
begin
 writeln('Vvedite 10 chisel : ');
 for i:=1 to 10 do
  begin
   write('N',i,': ');
   readln(a[i]);
  end;
  d:=0;
  k:=0;
 for i:=1 to 10 do
 begin
 if a[i]>4 then
 k:=k+a[i];
 if not odd(i) then d:=d+a[i];
 end;
 writeln(d,' ',k);
end.

Ну лови.

[ROMA2PVT]

 writeln('Сумма элементов с чётными индексами: ',d,' больше 4-х: ',k);

вставь эту строку чтоб понятней было где какая сумма.

[xJohnx]

походу, если я правельно понял, нужно считать элементы массива, которые четные!
То есть
ввел
а1=2
а2=4
а3=1
а5=0
а6
...
а23=7
нужно подсчыитать сумму парных(четных индексов)
а парные у нас, ( в наше примере) только а2. Ответ=4

[xJohnx]

при чем сдесь больше 4-х? как задача звучит???
Вычислить сумму элементов последовательности а1, а2 ,..... а23, имеющих парные индексы.
Четные индексы данны, нужно подсчитать их сумму и отобразить на экране=)

[ROMA2PVT]

а4 пропустил.следовательно сумма будет равна 6.

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=95180
А эт чья тема моя чтоли.