Поменять местами в каждой строке первый элемент с первым максимальным

@balyagutdinov · Регистрация: 12.10.2010

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

Поменять местами в каждой строке первый элемент с первым максимальным.

@pryda · 12.10.2010, 17:39

поясните, что значит "первый максимальный"

@rangerx · 12.10.2010, 17:48

Pascal

program prog;
 
const
  M = 4;
  N = 4;
var
  i, j: integer;
  max: ^integer;
  temp: integer;
  arr: array[1..M, 1..N] of integer;
begin
  {-----------------}
  Randomize;
  WriteLn('before:');
  for i:= 1 to M do begin
    for j:= 1 to N do begin
      arr[i, j]:= Random(10);
      Write(arr[i, j]:3);
    end;
    WriteLn;
  end;
 
  {------------------}
  for i:= 1 to M do begin
    max:= @arr[i, 1];
    for j:= 2 to N do
      if(arr[i, j] > max^) then max:= @arr[i, j];
    temp:= arr[i, 1];
    arr[i, 1]:= max^;
    max^:= temp;
  end;
 
  {------------------}
  WriteLn('after:');
  for i:= 1 to M do begin
    for j:= 1 to N do Write(arr[i, j]:3);
    WriteLn;
  end;
 
  ReadLn;
end.

@balyagutdinov 0 / 0 / 0 Регистрация: 12.10.2010 Сообщений: 6
		1
	Поменять местами в каждой строке первый элемент с первым максимальным 12.10.2010, 16:37. Показов 1482. Ответов 2 Метки нет (Все метки) Поменять местами в каждой строке первый элемент с первым максимальным. 0

@pryda Неадекват и грубиян 310 / 297 / 301 Регистрация: 22.02.2010 Сообщений: 647
	12.10.2010, 17:39	2
	поясните, что значит "первый максимальный" 0

	12.10.2010, 17:48

Опции темы

Поменять местами в каждой строке первый элемент с первым максимальным

Решение