Вывести только те элементы массива на печать, за которыми следует четный элемент

Рейтинг: 0Ответов: 1Опубликовано: 14.03.2015
 var
 i, n: integer;
 a: array[1..1000] of integer;

begin
readln(n);
for i := 1 to n do 
begin
read(a[i]);
if a[i] mod 2=0 then write(a[i-1],' ');
end;
end.

Почему выскакивает ошибка?

pascal
Источник: Stack Overflow на русском

Ответы

▲ 1Принят
if n > 0 then
  read(a[1]);
for i := 2 to n do 
begin
  read(a[i]);
  if (a[i] mod 2) = 0 then
    write(a[i-1],' ');
end;