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

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

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

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

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

@Hikari · 12.01.2016, 09:32

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
1
2
3
4
5
6
7
8
  ...
  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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

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

Решение

Решение

@Flash56rus 0 / 0 / 0 Регистрация: 26.11.2015 Сообщений: 12

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

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