Ошибка в задачнике aarray13

Среда PascalABC.NET
#1

Ошибка в условии задачи или в тестах. Вместо четных индексов работает при нечётных.

//AArray13. Найти сумму элементов массива //с четными индексами. uses pt4; var a:array[1…20] of real; s:real; i,n:integer; begin task(‘aarray13’); readln(n); for i:=1 to n do read(a[i]); s:=0; FOR i:=1 TO N DO if i mod 2=0 then s:=s+a[i];
writeln(s) end.

#2

Для начала выделите код так, а то нечитабельно:

```
код
```

Знак ` находится в англ. раскладке за буквой ё.

#3

Хороший ответ! А то вдруг пятёрка тусовщиков на этом форуме превратится в шестёрку.

#4

Не превратится. Например, потому что некоторые заняты другим - сдают свой яд на благо фармацевтической промышленности.

1 лайк
#5

Для AArray, как и для ZArray, предполагается, что индексы начинаются от 0.

#6 
//AArray13. Найти сумму элементов массива 
//с четными индексами. 
uses pt4;

var
  a: array[0..20] of real;
  s: real;
  i, n: integer;

begin
  task('aarray13'); 
  readln(n); 
  for i := 0 to n-1 do read(a[i]); 
  s := 0; 
  for i := 0 TO N-1 DO if i mod 2 = 0 then s := s + a[i];
  writeln(s) 
end.
#7

AArray13
AArray131402×1115 124 KB