Найти максимальный элемент массива . Поменять столбец, содержащий этот элемент с последним столбцом двумерного массива

@Светлана25 · Регистрация: 17.02.2013

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

Ввести двумерный массив размером 3*4. Найти максимальный элемент массива . Поменять столбец, содержащий этот элемент с последним столбцом двумерного массива .

@ildwine · 04.12.2013, 08:10

Pascal

const
  n = 3;
  m = 4;
var
  a : array[1..n, 1..m] of integer;
  i, j, max, temp, k : integer;
begin
  writeln('массив:');  
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(100);
      write(a[i,j]:4);
      if a[i,j] >= max then
      begin
        max := a[i,j];
        k := j {номер столбца}
      end
    end;
    writeln
  end;
  writeln('максимальный элемент: ', max, ' находится в ', k, ' столбце');  
  {обмениваем}
  for i := 1 to n do
  begin
    temp :=a[i,k];
    a[i,k] := a[i,m];
    a[i,m] := temp
  end;
  {выводим новый}
  writeln('поменяли столбцы:');
  for i := 1 to n do
  begin
    for j := 1 to m do write(a[i,j]:4);
    writeln
  end;  
  readln
end.

@Светлана25 0 / 0 / 0 Регистрация: 17.02.2013 Сообщений: 73
		1
	Найти максимальный элемент массива . Поменять столбец, содержащий этот элемент с последним столбцом двумерного массива 03.12.2013, 22:42. Показов 2521. Ответов 1 Метки нет (Все метки) Ввести двумерный массив размером 3*4. Найти максимальный элемент массива . Поменять столбец, содержащий этот элемент с последним столбцом двумерного массива . 0

	04.12.2013, 08:10

Найти максимальный элемент массива . Поменять столбец, содержащий этот элемент с последним столбцом двумерного массива

Решение