Размещение суммы положительных элементов строки с номеров k на месте максимального элемента матрицы

@Flash56rus · Регистрация: 26.11.2015

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

Составить программу для размещения суммы положительных элементов строки с номеров k на месте максимального элемента главной диагонали в матрице A[10,10]
Помогите пожалуйста

Добавлено через 1 час 33 минуты
люди добрые,помоги пожалуйста,срочно

@Hikari · 12.01.2016, 09:32

Pascal

var a:array[1..10,1..10] of integer; i,i,s,k,m;
begin
 s:=0; m:=1; Write('Какую строку будем собирать?'); Readln(k);
 for i:=1 to 10 do begin
  for j:=1 to 10 do begin 
   if (i=j) and (a[i,j]>a[m,m]) then m:=i;
   if i=k then s:=s+a[i,j];
  end;
 end; a[m,m]:=s;
 
 for i:=1 to 10 do begin
  for j:=1 to 10 do begin 
   write(a[i,j]:5);
  end; writeln;
 end; readln;
end.

@Flash56rus · 12.01.2016, 09:42 **[ТС]**

i,j,s,k,m:integer ; перед 1 begin????

@bormant · 12.01.2016, 10:32

Hikari,
раз уж в примере матрицу не вводите (не генерируете), то перебирать все ее элементы для решения поставленной задачи нет никакого смысла:

Pascal

  ...
  m:=Low(a); s:=0;
  for i:=Low(a) to High(a) do begin
    if a[m,m]<a[i,i] then m:=i;
    s:=s+a[k,i];
  end;
  a[m,m]:=s;
  ...

Добавлено через 11 минут
Или полностью:

Pascal

const n=10; W=4;
var
  a: array [1..n,1..n] of Integer;
  i, j, k, m: Integer;
  s: Longint;
begin
  Randomize;
  for i:=1 to n do for j:=1 to n do a[i,j]:=-10+Random(21);
  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:W); WriteLn;
  end;
  repeat
    Write('k [',Low(a),'..',n,']: '); ReadLn(k);
  until k in [Low(a)..n];
  m:=Low(a); {s:=0;}
  for i:=m to n do begin
    if a[m,m]<a[i,i] then m:=i;
    s:=s+a[k,i];
  end;
  a[m,m]:=s; WriteLn('m = ',m,'  s = ',s);
  WriteLn('A''=');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:W); WriteLn;
  end;
end.

Добавлено через 5 минут
Или сразу с выводом сумм:

Pascal

const n=10; W=4;
var
  a: array [1..n,1..n] of Integer;
  i, j, k, m: Integer;
  s: Longint;
begin
  Randomize;
  WriteLn('A =');
  for i:=1 to n do begin
    s:=0;
    for j:=1 to n do begin
      a[i,j]:=-10+Random(21); Write(a[i,j]:W); s:=s+a[i,j];
    end; WriteLn(' | ',s);
  end;
  repeat
    Write('k [',Low(a),'..',n,']: '); ReadLn(k);
  until k in [Low(a)..n];
  m:=Low(a); s:=a[k,m];
  for i:=m+1 to n do begin
    if a[m,m]<a[i,i] then m:=i;
    s:=s+a[k,i];
  end;
  a[m,m]:=s; WriteLn('m = ',m,'  s = ',s);
  WriteLn('A''=');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:W); WriteLn;
  end;
end.

@Hikari · 12.01.2016, 11:27

Сообщение от bormant

раз уж в примере матрицу не вводите

Я забыла написать это!

пардон мон шер ами...

Размещение суммы положительных элементов строки с номеров k на месте максимального элемента матрицы

Решение

Решение

@Flash56rus 0 / 0 / 0 Регистрация: 26.11.2015 Сообщений: 12
		1
	Размещение суммы положительных элементов строки с номеров k на месте максимального элемента матрицы 12.01.2016, 09:10. Показов 1077. Ответов 4 Метки нет (Все метки) Составить программу для размещения суммы положительных элементов строки с номеров k на месте максимального элемента главной диагонали в матрице A[10,10] Помогите пожалуйста Добавлено через 1 час 33 минуты люди добрые,помоги пожалуйста,срочно 0

@Flash56rus 0 / 0 / 0 Регистрация: 26.11.2015 Сообщений: 12
	12.01.2016, 09:42 [ТС]	3
	i,j,s,k,m:integer ; перед 1 begin???? 0

@Hikari Хитрая блондиночка $) 1472 / 988 / 399 Регистрация: 21.12.2015 Сообщений: 3,785
	12.01.2016, 11:27	5
	Сообщение от bormant раз уж в примере матрицу не вводите Я забыла написать это! пардон мон шер ами... 0