Заполнить двумерный массив случайными числами. Размерность массива и диапазон генерации вводятся с клавиатуры. Составить программу, которая вычисляет сумму всех элементов массива.

Затем организовать новый массив В, в котором заменить отрицательные элементы исходного массива на 1, а значения остальных элементов оставить без изменения. Подсчитать количество замен.

Program primer;

procedure random (c, x, y:integer; var r:integer) ;

begin

case c of

1 : r:=Random (ABS (Y) + ABS (x) + 1) + x;

2 : r:=Random (ABS (Y) + ABS (x) + 1) + y;

3 : r:=Random (Y-x+1) + x;

4 : r:=Random (x-y+1) + y;

5 : r:=Random (x+y) ;

6 : r:=Random (ABS (x+y)) - ABS (x+y) ;

7 : r:=x;

8 : r:=Random (ABS (ABS (x) - ABS (y))) - ABS (x) ;

9 : r:=Random (ABS (ABS (x) - ABS (y))) - ABS (y) ;

end;

end;

var

a, b: array of array of integer;

i, j, x, y, c, m, p, sum:integer; begin

Randomize;

sum:=0;

writeln ('Кол-во строк и столбцов массива? / / X, Y / / ') ;

read (i, j) ; / / Размерность массива

writeln ('Диапазон чисел / / от X, до Y / / ') ;

read (x, y) ; / / и диапазон генерации вводятся с клавиатуры.

if (x=y) then

c:=7

else

if (x<0) and (y<0) then

if (x
c:=8

else

c:=9

else

if (x=0) or (y=0) then

if (x<0) or (y<0) then

c:=6

else

c:=5

else

if (x<0) or (y<0) then

if (x
c:=1

else

c:=2

else

if (x
c:=3

else

c:=4;

SetLength (a, i) ;

for m:=0 to i-1 do

SetLength (a[m], j) ;

SetLength (b, i) ;

for m:=0 to i-1 do

SetLength (b[m], j) ;

for m:=0 to i-1 do begin

writeln () ;

for p:=0 to j-1 do begin

random (c, x, y, a[m, p]) ; {Заполнить двумерный массив случайными числами.}

sum:=sum+a[m, p]; {вычисляет сумму всех элементов массива}

write (a[m, p]:3,' ':3) ;

end;

end;

c:=0;

writeln ('summa=', sum) ;

for m:=0 to i-1 do begin {Затем организовать новый массив В }

writeln () ;

for p:=0 to j-1 do begin

if (a[m, p] <0) then begin

b[m, p]:=1; {в котором заменить отрицательные элементы исходного массива на 1} inc (c) ; {Подсчитать количество замен. }

end

else

b[m, p]:=a[m, p]; {а значения остальных элементов оставить без изменения }

write (b[m, p]:3, ' ':3) ;

end;

end;

writeln ('kol=', c) ;

a:=NIL;

b:=NIL;

end.

/ / ABC Pascal