Максимальный элемент главной диагонали матрицы А (nxn) заменить суммой положительных элементов строки с номером К

@Lelia Frozen · Регистрация: 01.05.2011

Максимальный элемент главной диагонали матрицы А (nxn) заменить суммой положительных элементов строки с номером К (к<=n).

@KaiTheCat · 01.05.2011, 22:48

Pascal

var
  a: array[1..50,1..50] of integer;
  i,j,n,max,k: byte;
  s: integer;
Begin
  randomize;
  readln(n,k);
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(51)-25;
          write(a[i,j:4]);
          if (i=k) and a[i,j]>0 then
            s:=s+a[i,j];
        end;
      writeln;
    end;
  writeln;
  max:=1;
  for i:=1 to n do
  if (a[i,i]>a[max,max]) then max:=i;
  a[max,max]:=s;
  for i:=1 to n do
    begin
      for j:=1 to n do write(a[i,j]:4);
      writeln;
    end;
  readln
End.

magirus · 02.05.2011, 08:54

Lelia Frozen, называйте темы информативно, и прочтите правила форума.

@Lelia Frozen 0 / 0 / 0 Регистрация: 01.05.2011 Сообщений: 22
		1
	Максимальный элемент главной диагонали матрицы А (nxn) заменить суммой положительных элементов строки с номером К 01.05.2011, 20:50. Показов 1509. Ответов 2 Метки нет (Все метки) Максимальный элемент главной диагонали матрицы А (nxn) заменить суммой положительных элементов строки с номером К (к<=n). 0

magirus Почетный модератор 28040 / 15771 / 981 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	02.05.2011, 08:54	3
	Lelia Frozen, называйте темы информативно, и прочтите правила форума. 0

Опции темы

Максимальный элемент главной диагонали матрицы А (nxn) заменить суммой положительных элементов строки с номером К

Решение