Удалить из матрицы строку с наибольшей суммой — Pascal(Паскаль)

Program mas;
Uses crt;
Const m=5; n=4;
Var a: array[1..m,1..n] of byte;
    aa: array[1..m-1,1..n] of byte;
    b: array[1..m] of byte;
    i,j,max,s: byte;
Begin
Clrscr;
Randomize;
For i:=1 to m do
  begin
   For j:=1 to n do
    begin
     a[i,j]:=random(21);
     b[i]:=b[i]+a[i,j];
     Write(a[i,j]:4);
    end;
   Writeln('      ',b[i]);
  end;
max:=b[1];s:=1;
For i:=2 to m do
If b[i]>max then
 begin
  max:=b[i];
  s:=i;
 end;
Writeln('Наибольшая сумма в ',s,'-ой строке');

for i:=s to N-1 do
    for j:=1 to M do
    a[i,j]:=a[i+1,j];


For i:=1 to m-1 do
   For j:=1 to n do
      aa[i,j]:=a[i,j];
      
For i:=1 to m-1 do
   begin
   For j:=1 to n do
      write(' ', aa[i,j]);
   writeln();
   end;
  
  
End.

Результат работы программы

Leave a Comment

81 + = 84