8. Приведена процедура визначення мiнiмального елементу масиву, але один з фрагментів треба вписати самостійно:
procedure TForm1. Button1 Click(Sender: TObject);
Var a: array [1..10] of integer; i, min:integer; begin
for i:=1 to 10 do a[i]:=StrToFloat(Memo1.Lines[i-1]);
min:=a[1];
for i:=2 to 20 do if a[i]< min then min:= a[i];
...
end;
procedure TForm1. Button1 Click(Sender: TObject);
Var a: array [1..10] of integer; i, min:integer; begin
for i:=1 to 10 do a[i]:=StrToFloat(Memo1.Lines[i-1]);
min:=a[1];
for i:=2 to 20 do if a[i]< min then min:= a[i];
...
end;
More Questions From This User See All
Answers & Comments
Объяснение:
У даній процедурі необхідно вписати дії, які потрібно зробити з мінімальним елементом після його знаходження. Можна вставити наприклад наступний фрагмент коду:
ShowMessage('Мінімальний елемент масиву: ' + IntToStr(min));
Цей фрагмент виведе на екран повідомлення з мінімальним елементом масиву після його знаходження. Отже, повна процедура буде мати вигляд:
процедура TForm1.Button1Click(Отправитель: TObject); Var a: массив [1..10] целого числа; i, min: целое число; begin для i:=от 1 до 10 выполните[i]:=StrToFloat(Memo1.Lines[i-1]); min:=a[1]; for i:=2 to 20 do if a[i]< min then min:= a[i]; ShowMessage('Мінімальний елемент масиву: ' + IntToStr(min)); end;