Определить диапазон изменения значений элементов строк матрицы - Delphi - Ответ 2021325

const n=7;
      m=5;
var a:array[1..n+1,1..m] of integer;
    i,j,k:integer;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=-20+random(50);
    write(a[i,j]:5);
   end;
  writeln;
 end;
writeln;
for j:=1 to m do
 begin
  k:=0;
  for i:=1 to n do
  if a[i,j]<0 then k:=k+1;
  a[n+1,j]:=k;
 end;
writeln('Новая матрица:');
for i:=1 to n+1 do
 begin
  for j:=1 to m do
  write(a[i,j]:5);
  writeln;
 end;
readln
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b,c,d:array[1..nmax*nmax] of integer;
    n,m,k,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Заданная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=-3+random(7);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
k:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<>0 then
 begin
  k:=k+1;
  b[k]:=a[i,j];
  c[k]:=i;
  d[k]:=j;
 end;
writeln('Ненулевые элементы матрицы:');
for i:=1 to k do
write('a[',c[i],',',d[i],']=',b[i]:2,' ');
writeln;
writeln;
writeln('Восстановленная матрица:');
for i:=1 to n do
for j:=1 to m do
a[i,j]:=0;
for i:=1 to k do
a[c[i],d[i]]:=b[i];
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.
readln
end.