Исключить из матрицы строку и столбец, на пересечении которых находится максимальный элемент - Turbo Pascal

  1. Дан двумерный числовой массив. Исключив из него строку и столбец,на пересечении которых находится максимальный элемент.


textual

Код к задаче: «Исключить из матрицы строку и столбец, на пересечении которых находится максимальный элемент - Turbo Pascal»

Uses Crt;
Const
  MaxX = 4;
  MaxY = 6;
Var
  m0        : array[1..MaxX,1..MaxY] of Integer;
  i,j,mx,my : Byte;
Begin
  ClrScr;
  mx:=1; my:=1;
  For i:=1 to MaxX do
   For j:=1 to MaxY do
  Begin
    m0[i,j]:=Random(100);
    GoToXY(i*3,j); Write(m0[i,j]);
    If m0[i,j]>m0[mx,my] then
    Begin
      mx:=i; my:=j;
    End;
  End;  
  Writeln;
  Writeln;
  For j:=1 to MaxY do
  Begin
    For i:=1 to MaxX do
      If (i<>mx) and (j<>my) then Write(m0[i,j]:2,' ');
    If my<>j then Writeln;
  End;
End.

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.909 из 5



Похожие ответы
  1. Задание собственно такое: Составить программу формирования из вектора A={ai}, i=1/3n вектора B={bi}, i=1/n, очередная компонента которого равна среднему арифметическому очередной тройки компонент вектора. вот сама программа:

  1. Заданы три числа, надо найти минимальное число. Составить программу для вычисления периметра 10 прямоугольников.

  1. Два нечетных простых числа, разность между которыми равна 2, называются близнецами. На интервале от 1 до 1000 найти всех близнецов и подсчитать количество пар. Необходимо сделать ,используя только циклы ,а без функций и процедур я хз как(

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. 1.Составить программу вычисления суммы квадратов чётных чисел из промежутка [a,b].

  1. Произвольно заданы три одномерных массива. Сформировать новый массив, состоящий из десяти элементов с наибольшими значениями исходных массивов. Помогите пожалуйста! Нужно написать программу с while и repeat!!!(отдельные)

  1. Задание: Даны три числа a, b, c. Составить программу нахождения значения минимального отклонения каждого из них от их среднего арифметического. Данные выбрать произвольно.

  1. нужна написать программу чтоб вышел такой рисунок *** ** *

  1. помогите пожалуйста написать программу,которая найдет все натуральные числа,меньше чем MAXINT, такие ,что они равны сумме факториалов цифр,из которых состоят. пример: 145=1!+4!+5!

  1. Написать программу на зыке Pascal для обработки матриц. Размерности матрицы и ее элементы должны вводиться с клавиатуры. Полученная матрица и другие элементы должны выводиться на экран. Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5.