Обработка двумерных массивов.

@qwertyuiop12 · Регистрация: 24.03.2010

Студворк — интернет-сервис помощи студентам

Количество строк и столбцов в матрице может быть не больше 8. Сформировать новую матрицу, вычеркнув из исходной матрицы,столбец с максимальной суммой элементов.

@Puporev · 01.04.2010, 19:01

Pascal

uses crt;
const nmax=8;
var a:array [1..nmax,1..nmax] of integer;
    n,m,i,j,k:byte;
    sm,mx:integer;
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]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
mx:=0;k:=0;
for i:=1 to n do
mx:=mx+a[i,1];
for j:=1 to m do
 begin
  sm:=0;
  for i:=1 to n do
  sm:=sm+a[i,j];
  if sm>mx then
   begin
    mx:=sm;
    k:=i;
   end;
 end;
writeln('Максимальная сумма=',mx,' в столбце',k);
for i:=1 to n do
for j:=k to m do
a[i,j]:=a[i,j+1];
writeln('Результат удаления столбца:');
for i:=1 to n do
 begin
  for j:=1 to m-1 do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

@qwertyuiop12 1 / 1 / 1 Регистрация: 24.03.2010 Сообщений: 22
		1
	Обработка двумерных массивов. 01.04.2010, 18:42. Показов 1167. Ответов 1 Метки нет (Все метки) Количество строк и столбцов в матрице может быть не больше 8. Сформировать новую матрицу, вычеркнув из исходной матрицы,столбец с максимальной суммой элементов. 0

	01.04.2010, 19:01

Опции темы

Обработка двумерных массивов.

Решение