Переписать элементы массива A(12) в матрицу B(3x4) по строкам

[xover]

Всем привет,нужна ваша помощь,завтра сдавать рейтинг и на рейтинге будет это задание,как его делать я понятия не имею,знаю только что нужна программа в Borland Pascal(ABC Pascal),и нужен алгоритм в тетради,выручайте!
Wnodajzvpnc.jpg

[Stilet]

Ввод матрицы самостоятельно осилишь написать?

[xover]

Сообщение от Stilet

Ввод матрицы самостоятельно осилишь написать?

Нет конечно,я целый год по соревнованиям ездил,я 0 в програмировании если честно)

[Serge_Bliznykov]

s:=0;
p:=1.0;
for i:=1 to 3 do
  for j:=1 to 4 do begin
    B[i,j] := A[ (i-1)*4+j ];
    if B[i,j]<0 then s:=s+B[i,j];
    if B[i,j]>0 then p:=p*B[i,j];
  end;

строго говоря, ноль, конечно, положительное число, но здесь он не учитывается при умножножении положительных чисел, чтобы не обнулить всё произведение.
если нужно, чтобы ноль тоже участвовала в умножении положительных чисел, сделайте проверку нестрогой: if B[i,j]>=0 then

[xover]

Сообщение от Serge_Bliznykov

s:=0;
p:=1.0;
for i:=1 to 3 do
  for j:=1 to 4 do begin
    B[i,j] := A[ (i-1)*4+j ];
    if B[i,j]<0 then s:=s+B[i,j];
    if B[i,j]>0 then p:=p*B[i,j];
  end;

строго говоря, ноль, конечно, положительное число, но здесь он не учитывается при умножножении положительных чисел, чтобы не обнулить всё произведение.
если нужно, чтобы ноль тоже участвовала в умножении положительных чисел, сделайте проверку нестрогой: if B[i,j]>=0 then

Спасибо большое,попробую что нибудь сделать с этим)

[xover]

Сообщение от Stilet

Ввод матрицы самостоятельно осилишь написать?

Если объяснишь не много,как это сделать,думаю я смогу.

[Dvoishnik]

Сообщение от xover

Если объяснишь не много,как это сделать,думаю я смогу.

как то так ввод можно сделать

for i:=1 to 12 do

Write('Введите элемент массива:');ReadLn(a[i]);

[xover]

Сообщение от Dvoishnik

как то так ввод можно сделать

for i:=1 to 12 do

Write('Введите элемент массива:');ReadLn(a[i]);

Это смогу сделать

[Aleksandr H.]

Dvoishnik, спорим что TC пожалуется что ничего не работает по коду?

for i:=1 to 12 do

Write('Введите элемент массива:');ReadLn(a[i]);

[Dvoishnik]

Aleksandr H. откройте тайну, что не так??