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