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

[xJohnx]

Если в А4 будет 2
А4=2
А2=4
Тогда да,= 6! Ну ты понял задачу?

[xJohnx]

Нет! то я случайно туда влепил! Я уже сделал вторую часть!
а вот теперь спрашиваю это половину задачи!

[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.

Эт и есть условие суммирования чётных индексов.

[xJohnx]

Объясни что написал! просто не понял!

[ROMA2PVT]

Господи.Чётный индекс и чётный элемент это два разных понятия.Тебя интересует расшифровка этой строки

if not odd(i) then d:=d+a[i];

Вот: если индекс элемента массива нечётный тогда суммируем.

[xJohnx]

if not odd(i)- я такую форму записи никогда еще не встричал..

Где ты нарыл?

[ROMA2PVT]

Нарыл?Я программист очнись парень.odd-это функция определения нечётности.a not odd логично былобы предположить чётности.

[xJohnx]

Ну программист!! Респект=))
спасибо=))

[ROMA2PVT]

Не за что.=))С тебя отзыв.

[xJohnx]

http://i062.radikal.ru/1004/53/5061a2461ed0.jpg
чето вроде, не то!