Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Лабораторная работа № 10
Задание. В целочисленном массиве А(10) найти максимальный и минимальный элементы и поменять их местами.
A: array[1..10] of integer;
I, min, max, imin, imax : integer;
5. Выполним двойной щелчок по форме Form1, в результате чего будет
создана заготовка события OnCreate для формы, возникающего в
момент создания формы. Размещение операторов в этом обработчике во
многих случаях эквивалентно размещению операторов в секции
initialization модуля. Поместим там следующие строки:
i:=0;
ListBox1.Clear;
ListBox2.Clear;
ListBox1.Items.Add (Edit1.Text);
I:=i+1;
A[i]:=StrToInt(Edit1.Text);
Edit1.SetFocus;
поместим следующий текст:
max:=a[1];
imax:=1;
min:=a[1];
imin:=1;
for k:=2 to 10 do
begin
if max<a[k] then
begin
max:=A[K];
imax:=k
end;
if min>a[k] then
begin
minA[K];
imin:=k
end;
end;
a[imax]:=min;
a[imin]:=max;
for k:=1 to 10 do
ListBox2.Items.Add(IntToStr(a[k]));
If key = 13 then Button1.SetFocus
Edit. Ввод каждого числа завершаем нажатием кнопки Enter либо щелчком мыши по кнопке «Ввод».