не всегда правильно вычисляет

@Hugoboss33 · Регистрация: 25.09.2013

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

в массиве найти максимальный и минимальный элемент, поменять их местами, вывести полученный массив

Delphi

var
a:array[0..3,0..4] of real;
i,j,imax,jmax,imin,jmin:integer;
max,min,buf:real;
begin
randomize;
for i:=0 to 3 do
for j:=0 to 4 do
a[i,j]:=random(100)-40;
 
for i:=0 to 3 do
for j:=0 to 4 do
StringGrid1.Cells[i,j]:=floattostr(a[i,j]);
 
max:=a[0,0];
min:=a[0,0];
 
for i:=0 to 3 do
for j:=0 to 4 do
begin
if(a[i,j]>max) then
  begin
    max:=a[i,j];
    imax:=i;
    jmax:=j;
  end;
end;
 
for i:=0 to 3 do
for j:=0 to 4 do
begin
  if(a[i,j]<min) then
    begin
      min:=a[i,j];
      imin:=i;
      jmin:=j;
    end;
end;
 
buf:=max;
max:=min;
min:=buf;
a[imax,jmax]:=max;
a[imin,jmin]:=min;
 
for i:=0 to 3 do
for j:=0 to 4 do
StringGrid2.Cells[i,j]:=floattostr(a[i,j]);
 
end;
 
end.

@droider · 20.11.2013, 17:09

В матрице найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элементы

@Puporev · 20.11.2013, 17:15

Delphi

1
2
3

buf:=a[imax,jmax];
a[imax,jmax]:=a[imin,jmin];
a[imin,jmin]:=buf;

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	20.11.2013, 17:09	2
	В матрице найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элементы 1

	20.11.2013, 17:15