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 |