Определить сумму чисел в каждой строке матрицы

@Bax_53 · Регистрация: 07.01.2013

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

В матрице А[1..N,1..M] определить сумму чисел в каждой строке и строку с минимальной суммой рассортировать по убыванию. Вывести на экран всю матрицу, выделив цветом строку с минимумом. помогите пожалуйста, срочно надо

@Puporev · 26.01.2013, 14:24

Pascal

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax]of integer;
    b:array[1..nmax] of integer;
    n,m,i,j,mn,imn:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
for i:=1 to n do
 begin
  b[i]:=0;
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    b[i]:=b[i]+a[i,j];
   end;
 end;
mn:=b[1];
imn:=1;
for i:=1 to n do
if b[i]<mn then
 begin
  mn:=b[i];
  imn:=i;
 end;
writeln('Исходная матрица');
writeln('Сумма':m*4+9);
for i:=1 to n do
 begin
  if i=imn then textcolor(12)
  else textcolor(0);
  for j:=1 to m do
  write(a[i,j]:4);
  writeln(b[i]:8);
 end;
textcolor(12);
writeln('Строка с минимальной суммой=',imn,' сумма=',mn)
end.

@Bax_53 0 / 0 / 0 Регистрация: 07.01.2013 Сообщений: 24
		1
	Определить сумму чисел в каждой строке матрицы 26.01.2013, 13:18. Показов 1046. Ответов 1 Метки нет (Все метки) В матрице А[1..N,1..M] определить сумму чисел в каждой строке и строку с минимальной суммой рассортировать по убыванию. Вывести на экран всю матрицу, выделив цветом строку с минимумом. помогите пожалуйста, срочно надо 0

Опции темы

Определить сумму чисел в каждой строке матрицы

Решение