Написать программу, которая определяет номер строки квадратной матрицы, сумма элементов которой максимальна

@dasha1002 · Регистрация: 17.02.2015

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

Написать программу, которая определяет номер строки квадратной матрицы, сумма элементов которой максимальна.

@Puporev · 18.03.2015, 09:11

Pascal

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,s,mx,imx:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(50);
writeln('Исходная матрица:');
writeln('Сумма':3*n+6);
for i:=1 to n do
 begin
  s:=0;
  for j:=1 to n do
   begin
    write(a[i,j]:3);
    s:=s+a[i,j];
    if i=1 then
     begin
      mx:=s;
      imx:=1
     end
    else if s>mx then
     begin
      mx:=s;
      imx:=i
     end;
   end;
  writeln(s:5);
 end;
writeln('Максимальная сумма в строке ',imx,'=',mx);
readln
end.

@dasha1002 1 / 1 / 0 Регистрация: 17.02.2015 Сообщений: 9
		1
	Написать программу, которая определяет номер строки квадратной матрицы, сумма элементов которой максимальна 18.03.2015, 00:39. Показов 1740. Ответов 1 Метки нет (Все метки) Написать программу, которая определяет номер строки квадратной матрицы, сумма элементов которой максимальна. 0

	18.03.2015, 09:11

Написать программу, которая определяет номер строки квадратной матрицы, сумма элементов которой максимальна

Решение