var
i, j, s, q, min, max:integer;
c:array [1..50, 1..20] of integer;
begin
writeln('Введите минимальное значение генерации эл. массива:');
readln(min);
writeln('Введите максимальное значение генерации эл. массива:');
readln(max);
writeln();
randomize;
for i:=1 to 50 do
for j:=1 to 20 do
c[i, j]:=random(min, max);
for i:=1 to 50 do
begin
for j:=1 to 20 do
write(c[i, j]:5, ' ');
writeln();
end;
for i:=1 to 50 do
for j:=1 to 20 do
if c[i, j]<0 then
begin
s:=s+c[i, j];
q:=q+1;
end;
writeln();
writeln('Среднее арифметическое значение отрицательных элементов матрицы: ', s/q);
writeln();
s:=0; q:=0;
for i:=1 to 50 do
for j:=1 to 20 do
if c[i, j]>0 then
begin
s:=s+c[i, j];
q:=q+1;
end;
writeln('Среднее арифметическое значение положительных элементов матрицы: ', s/q);
end.