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

@wizard 007 · Регистрация: 19.04.2011

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

в матирице x[k,l] поменять местами максимальный и минимальный элемент массива.Помогите решить пожалуйста.

@URUHA · 24.12.2011, 13:08

Delphi

min_i:=0; min_j:=0;
max_i:=0; max_j:=0;
for i:=0 to k-1 do
  for j:=0 to L-1 do
    begin
       if x[i,j]<a[min_i,min_j] then 
           begin 
              min_i:=i; min_j:=j
           end;
       if x[i,j]>a[max_i,max_j] then 
           begin 
              max_i:=i; max_j:=j
           end;
     end;
 
temp:=a[max_i,max_j];
a[max_i,max_j]:=a[min_i,min_j];
a[min_i,min_j]:=temp;

@wizard 007 0 / 0 / 0 Регистрация: 19.04.2011 Сообщений: 39
		1
	Поменять местами максимальный и минимальный элемент массива 24.12.2011, 12:20. Показов 1036. Ответов 1 Метки нет (Все метки) в матирице x[k,l] поменять местами максимальный и минимальный элемент массива.Помогите решить пожалуйста. 0

Опции темы

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

Решение