Получить вектор B из максимальных элементов строк матрицы А

@uzilok · Регистрация: 24.12.2012

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

Дана матрица А (MxN), М<=10, N<=20. Получить вектор B из максимальных элементов строк матрицы А. Поменять местами первый и последний элемент вектора B. Отпечатать полученный вектор

@uzilok · 24.12.2012, 23:38 **[ТС]**

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
program cr;
 const
 M = 3;
 N = 3;
 var
 a: array [1..M, 1..N] of integer;
  b: array [1..M] of integer;
  k,l,P,i,j,Imin,Imax: byte;
  Jmax: integer;
  Begin
     writeln ('N');
     writeln ('M');
      for  i:=1 to N do
       for  j:=1 to M do
        begin
         write ('a[',i,',',j,']=');
         readLn (a[i,j]);
        end;
         begin
          for i:= 1 to N do
           for j:=1 to m do
    begin
    imax:=1;
    for i:=1 to N do
        if a[i,j]>a[imax,i] then imax:=j;
    b[j]:=a[imax,i];
    end;
    K:=B[1];
    L:=B[N];
    B[1]:=L;
    B[N]:=K;
      for i:= 1 to N do
       begin
         for j:= 1 to M do
        write(a[i,j]:3);
         writeln;
          end;
      writeln(' B:');
for j:=1 to m do
    write(b[j]:3);
              end;
              end.

Помогите пожалуйста не пойму в чём проблема,( Дана матрица А (MxN), М<=10, N<=20. Получить вектор B из максимальных элементов строк матрицы А. Поменять местами первый и последний элемент вектора B. Отпечатать полученный вектор) вот не ищет как надо макс элемент!!!

@ermolay · 25.12.2012, 00:08

третий цикл внутри двух других явно лишний:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
program cr;
 
const
  M = 3;
  N = 3;
 
var
  a: array [1..M, 1..N] of integer;
  b: array [1..M] of integer;
  k, l, P, i, j, Imin, Imax: byte;
  Jmax: integer;
 
begin
  writeln('N=',n);
  writeln('M=',m);
  for  i := 1 to N do
    for  j := 1 to M do
    begin
      write('a[', i, ',', j, ']=');
      readLn(a[i, j]);
    end;
  begin
    for i := 1 to N do
    begin
      jmax:=1;
      for j := 1 to m do
        if a[i,j]>a[i,jmax] then
        begin
          jmax:=j;
          b[i]:=a[i,j];
        end;
    end;
    {K := B[1];
    L := B[N];
    B[1] := L;
    B[N] := K;}
    // замена символов
    k:=b[1];
    b[1]:=b[n];
    b[n]:=k;
    for i := 1 to N do
    begin
      for j := 1 to M do
        write(a[i, j]:3);
      writeln;
    end;
    writeln(' B:');
    for j := 1 to m do
      write(b[j]:3);
  end;
end.

Добавлено через 2 минуты
и несколько объявленных переменных оказались лишними тоже, а экономия памяти при сокращении количества переменных - никогда не лишняя

@uzilok · 25.12.2012, 12:34 **[ТС]**

Добавлено через 2 минуты
Спасибо за помощь!

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@uzilok 0 / 0 / 0 Регистрация: 24.12.2012 Сообщений: 3

	Получить вектор B из максимальных элементов строк матрицы А 24.12.2012, 15:27. Показов 1752. Ответов 3 Метки нет (Все метки) Дана матрица А (MxN), М<=10, N<=20. Получить вектор B из максимальных элементов строк матрицы А. Поменять местами первый и последний элемент вектора B. Отпечатать полученный вектор 0

@uzilok 0 / 0 / 0 Регистрация: 24.12.2012 Сообщений: 3
	25.12.2012, 12:34 [ТС]
	Добавлено через 2 минуты Спасибо за помощь! 0

Получить вектор B из максимальных элементов строк матрицы А

Решение