подкоректировать. Двумерный массив

[felmor]

двумерный массив
Задана квадратная матрица A размером N x N (N<=10), состоящая из действительных элементов.
Найти сумму всех ее положительных и произведение всех ее отрицательных эле-
ментов.

program fellab12;
const nmax = 10; nmin = -10;

type iarray = array[nmin..nmax,nmin..nmax] of real;
var A:iarray;
m,n,i,j:byte;
begin
write('kol strok i stolb');
readln(m,n);
writeln('enter matrix');
for i:=1 to 10 do
for j:=1 to 10 do
write(a[i,j]);
writeln('result = ',i,j)


end.

сделал так, но вижу что не правильно

[lexus_ilia]

Так вы ничего и не сделали, вы только ещё ввели матрицу, делайте дальше, всё получится...

[Tkirill]

uses crt;
var
mas:array[1..10,1..10] of real;
i,j:integer;
pr,sum:real;
begin
clrscr;
randomize;
writeln;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
mas[i,j]:=-random(10)+random(10);
write(mas[i,j]:2:1,' ');
end;
writeln;
writeln;
end;
sum:=0;
pr:=1;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
if mas[i,j]<0 then pr:=pr*mas[i,j]
else sum:=sum+mas[i,j];
end;
end;
writeln;
writeln(' Произведение отрицательных -> ',pr:4:4);
writeln(' Сумма положительных -> ',sum:4:4);
readln;
end.

[puporev]

Так вы ничего и не сделали, вы только ещё ввели матрицу,

Более того, Илья, он и матрицу не ввел, только собрался.

[lexus_ilia]

Короче, не парся парень, держи свою прогу, а то ты походу ещё долго бы её делал...

Program xa;
var
 a:array[1..10,1..10] of integer;
 i,j,n,sum:integer;
 ymn:longint;
begin
 Writeln('BBedute noP9DoK matpuL/bl');
 readln(n);
 Writeln('BBedute eleMeHTbl matpuL/bl');
 for i:=1 to n do
  for j:=1 to n do
  begin
   Write('A[' ,i, ',' ,j, ']=');
   readln(a[i,j]);
  end;
 ymn:=1;
 sum:=0;
 for i:=1 to n do
  for j:=1 to n do
  if a[i,j]<>0 then
   if a[i,j]>0 then
    sum:=sum+a[i,j]
   else
    ymn:=ymn*a[i,j];
 Writeln('Cymma Bcex nolojuTeLnHblx eleMeHToB= ' , sum);
 Writeln('npou3BeDeHue Bcex otpuL/aTeLbHblx elemeHToB= ', ymn);
 readln
end.

[lexus_ilia]

Кстати в той проге что ты написал если-бы хоть 1-ин елемент был равен "0" тогда твоё произведение стало бы равно "0".