Ответы для программистов на любой случай

Комментарии

Один комментарий на ««Ответы для программистов на любой случай»»

1. 

   Twix

   11.09.2013

   Почему на делфи выдает ошибку на 8 строке:
   procedure TForm1.Button1Click(Sender: TObject);
   var
   a: array[1..5] of integer;
   min:integer;
   i:integer;
   begin
   for i:=1 to 5 do//
   a:= StrToInt(StringGrid1.Cells[i-1,0]);
   min:= 1;
   for i:= 2 to 5 do
   if a < a[min] then min:= i;
   label1.caption := минимальный элемент массива '
   + IntToStr(a[min] + #13 + 'номер эл-та' + IntToStr(min);
   end;
   end;

   end.

   Ответить