Дан массив A размером 3*3. Составить программу, записывающие положительные элементы этого массива A в одномерный массив B, а отрицательные - в одномерный массив C

[SkaNi]

Дан массив A размером 3*3, элементы массива вводятся пользователем вручную. Составить программу, записывающие все положительные элементы двумерного массива A в одномерный массив B, а отрицательные в одномерный массив C. Полученный результат вывести на экран.
Есть часть кода, но не знаю правильно ли я начала делать

program zad1;
var i, j: integer;
var a:array[1..3, 1..3] of integer;
var b:array[1..3] of integer;
var c:array[1..3] of integer;
begin
writeln('Введите маcсив размером 3 на 3');

for i:=1 to 3 do 
for j:=1 to 3 do
Begin
write ('a(',i,',',j,')='); 
readln (a[i, j]); 
end;

writeln();
for i:=1 to 3 do 
for j:=1 to 3 do
begin
if a[i,j]<0 then write (a [i],' ');
end;

writeln();
writeln();
for i:=1 to 3 do 
for j:=1 to 3 do
begin
if a[i,j]>0 then write (a [i],' ');
end;

end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Sciv]

С точки зрения оформления писать var в каждой строке с переменными не комильфо, с точки зрения паскакаля - и не требуется.

var 
     i, j: integer;
     a:array[1..3, 1..3] of integer;
     b:array[1..3] of integer;
     c:array[1..3] of integer;

В этих местах у Вас двухмерный массив неожиданно превратился в одномерный - подозреваю, что вместо a[i] нужно использовать b и c:

if a[i,j]<0 then write (a [i],' ');
...
if a[i,j]>0 then write (a [i],' ');

И кстати, если в таком виде поменять на b и c - на экран выведется невесть что (вероятнее всего - нули). Обратите внимание, что в задании чётко сказано:

Составить программу, записывающую

а Вы реализовали только вывод на экран положительных и отрицательных элементов, что совсем не одно и то же. Массивы b и c остаются пустыми.

В целом направление мышления верное, так держать!