Массив A(6х8), найти сумму положительных элементов и вычесть произведение максимума и...

Question

Массив A(6х8), найти сумму положительных элементов и вычесть произведение максимума и минимума (максимум и минимум искать по модулю).
НА ПАСКАЛЕ, как можно проще
спасибо =*

Answer 1

Const n=6; m=8;
var 
a:array[1..n,1..m] of integer;
i,j,max,min,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
   a[i,j]:=random(51)-25;
   write(a[i,j]:4);
  end;
  writeln;
 end;
max:=abs(a[1,1]); min:=abs(a[1,1]); s:=0;
for i:=1 to n do
 for j:=1 to m do
  begin
  if a[i,j]>0 then s:=s+a[i,j];
  if abs(a[i,j])>max then max:=abs(a[i,j]);
  if abs(a[i,j])  end;
writeln('s = ',s,' max = ',max,' min = ',min);
writeln('s - max * min = ',s-max*min);
end.

Пример:
Исходный массив:
 -10   4   9 -21   9  24  24 -24
 -23 -21  21  24 -18 -15  14  -8
   2 -23 -17   5  17  -8 -10 -16
 -22  -9   6 -21   3 -13  18  13
  -8  -3 -25  -6  -2   8  14  25
 -19 -10  22  -1  -6 -20  -5 -17
s = 262 max = 25 min = 1
s - max * min = 237