Есть ответ 👍

Написать программу в pascal'e. если матрица квадратная, то поменять местами минимальный и максимальный элементы побочной диагонали. в противном случае-заменить элементы четных строк нулями.

263
323
Посмотреть ответы 2

Ответы на вопрос:


Const   nm = 20;   nn = 20; var   a: array[1..nm, 1..nn] of integer;   i, j, m, n, k, imin, imax, nmin, nmax: integer; begin   write('введите число строк и столбцов матрицы: ');   readln(m, n);   randomize;   writeln('исходная матрица');   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i, j] : = random(101) - 50;           write(a[i, j]: 4)       end;       writeln   end;   if m = n then begin       imax : = 1; imin : = 1; nmax : = a[1, n]; nmin : = nmax;       for i : = 2 to n do       begin           k : = a[i, n - i + 1];           if nmax < k then begin imax : = i; nmax : = k end;           if nmin > k then begin imin : = i; nmin : = k end       end;       a[imax, n - imax + 1] : = nmin; a[imin, n - imin + 1] : = nmax   end   else begin       i : = 2;       while i < = m do       begin           for j : = 1 to n do a[i, j] : = 0;           i : = i + 2       end;   end;   writeln('матрица-результат');   for i : = 1 to m do   begin       for j : = 1 to n do write(a[i, j]: 4);       writeln   end;   writeln end. тестовые решения: введите число строк и столбцов матрицы: 5 5 исходная матрица   29  40 -24  34  16   32 -45    9 -10  27   -45  30 -50 -24 -50   15  33    3  12  36   46 -46    0    2  43 матрица-результат   29  40 -24  34  16   32 -45    9 -10  27   -45  30  46 -24 -50   15  33    3  12  36   -50 -46    0    2  43 введите число строк и столбцов матрицы: 5 6 исходная матрица   27    3 -18  36 -48  22   -27 -19    4 -36 -50  -9   -48 -25    9 -36  10  26   10 -22 -15 -40 -42  38   -31  32  41 -17 -26  22 матрица-результат   27    3 -18  36 -48  22     0    0    0    0    0    0   -48 -25    9 -36  10  26     0    0    0    0    0    0   -31  32  41 -17 -26  22
Dave999
4,8(61 оценок)

устройства ввода информации, устройства хранения информации,

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS