Обмен местами минимального и максимального элемента массива

10.12.2010, 23:01. **Показов** 1459. **Ответов** 2

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

Задание в одномерном массиве из 16 элементов поменять местами минимальный и максимальный элементы.
Я вроде все сделал, но при нажатии на подсчет программа ругается...

Вот то что написал

Delphi

var
 B : array[1..16] of integer;
 i, k, t, min, max : integer;
begin
 for i:=1 to 16 do
  B[i]:=strtoint(StringGrid1.Cells[i,0]);
  max:=B[1];
  min:=B[1];
 for i:=1 to 16 do
  begin
   if B[i] > max then
    begin
     max:=B[i];
     k:=i;
    end;
   if B[i] < min then
    begin
    t:=i;
    min:=B[i];
    end;
  end;
   B[k]:=min;
   B[t]:=max;
  for i:=1 to 16 do
   StringGrid1.Cells[i,0]:=inttostr(B[i]);
 end;
end.

А ругается именно на

Delphi

1 2	B[k]:=min; B[t]:=max;

Пишет: Variable 'k'/'t' might not have been initialized
Прошу помощи т.к. уже просто незнаю что делать

@insolent · 11.12.2010, 01:51

xvote, предупреждения выдаёт, т.к. в программе может не выполнится условия при проверке на макс. и мин. (понятно, что хотя бы одно из условий будет верно). Обмен не происходит из-за того, что в StringGriв'е нумерация колонок и рядов начинается с 0.
Исправленный код:

Delphi

var
 B : array[0..15] of integer;
 i, k, t, min, max : integer;
begin
 for i:=0 to 15 do
  B[i]:=strtoint(StringGrid1.Cells[i,0]);
  max:=B[0];
  min:=B[0];
  k := 0; t := 0;
 for i:=0 to 15 do
  begin
   if B[i] > max then
    begin
     max:=B[i];
     k:=i;
    end;
   if B[i] < min then
    begin
    t:=i;
    min:=B[i];
    end;
  end;
   B[k]:=min;
   B[t]:=max;
  for i:=1 to 15 do
   StringGrid1.Cells[i,0]:=inttostr(B[i]);
 end;

11.12.2010, 11:58

Спасибо. Теперь понял в чем проблема была)

xvote
	11.12.2010, 11:58	3
	Спасибо. Теперь понял в чем проблема была)