Помогите, пожалуйста, найти ошибку... не могу разобраться

uses wincrt;
var a:array [1..3,1..3] of integer;
      b:array [1..3] of integer;
      i,j,x,y,z,k:integer;
begin 
        for j:=1 to 3 do 
        if (a[i,j]>0) and (a[i+1,j]>0) and
        (a[i+2,j]>0) then 
        begin
                b[i]:=a[i];
                b[i+1]:=a[i+1];
                b[i+2]:=b[i+2];
                j:=j+1
         end;
         for i:=1 to 3 do
         writeln (b[i]);
End.

Если можно то сразу решение с исправлением напишите

М

Пожалуйста, используй теги при публикации программ: выделить программу и выбрать нужный пункт в меню CODE Lapp

С трудом удерживаюсь, чтоб не пошутить, что ошибка - в генетическом коде, а не в программном.. Если хочешь, чтоб твое задание угадывали - иди на форум телепатов или любителей головоломок по крайней мере. Откуда мне знать, что тебе нужно получить?? Пиши условие задачи, не ленись..

Очевидных ошибок по крайней мере две:

1. ты явно выскакиваешь за диапазон индексов массива в цикле (цикл до 3, и еще ты прибавляешь 2 к индексу, а массив всего до 3)

2. ты присваиваешь:
b[i]:=a[i];
b[i+1]:=a[i+1];
- при этом массив b - одномерный, а a - двумерный. Если ты указываешь у двумерного масива только один индекс, то ты получаешь одномерный массив как элемент (двумерный - это одномерный массив одномерных массивов, то есть a[1..m,1..n] это то же самое, что и a[1..m][1..n], то есть a[i] это есть массив, а не число, вроде как бы(a[1..m])[i] . Так что присвоения, которые ты делаешь - некорректны.

Не проси сделать хотя бы часть работы ЗА тебя, и будет тебе счастье. Когда просишь научить, не говори, КАК тебя надо учить. Здесь запросто могут выдать тебе все решение на блюдечке. Но ПРОСИТЬ этого - это самый верный способ это НЕ получить..