Заполнить одномерный массив, найдя произведение положительных элементов в каждом столбце матрицы - Turbo Pascal

Формулировка задачи:

Здравствуйте. Написал программу, не могли бы проверить её на правильность? Дан двумерный массив a, размером (nm). Заполнить одномерный массив, найдя произведение положительных элементов в каждом столбце матрицы.
program c6;
const n=5;
const m=8;
var a:array[1..n,1..m] of real;
i,j:integer;
p,p1,p2,p3,p4,p5:real;
begin
p:=1;
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:= random(20)-10;
p:=1;
for i:=1 to n do
if a[i,j]>0 then p:=p*a[i,j];
writeln('p=',p);
end.


textual

Код к задаче: «Заполнить одномерный массив, найдя произведение положительных элементов в каждом столбце матрицы - Turbo Pascal»

program c6;
const n=5;
const m=8;
var a:array[1..n,1..m] of real;
    b:array[1..m] of real;
    i,j:integer;
    p:real;
begin
randomize;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=-3+6*random;
    write(a[i,j]:5:2)
   end;
  writeln
 end;
for j:=1 to m do
 begin
  p:=1;
  for i:=1 to n do
  if a[i,j]>0 then p:=p*a[i,j];
  b[j]:=p
 end;
writeln('Массив произведений');
for i:=1 to m do
write(b[i]:0:2,' ');
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 4.231 из 5

Источник