Презентация на тему Работа с массивами

первым элементом, найти среднее значение элемента массива
procedure TForm1.Button1Click(Sender: TObject);
var
a:array

[1..30] of real;
i,imax:integer;
max:real;
s,ssr:real;
begin
for i:=1 to n do
a[i]:=strtofloat(stringgrid1.Cells[i-1,1]);

n do
if a[i]>max then begin

max:=a[i];
imax:=i
end;
a[imax]:=a[1];
a[1]:=max;

равно'+#13+ floattostrF(ssr,ffFixed,8,3);
end;

алгоритма метода прямого перебора
Алгоритм сортировки массива по возрастанию метолом

прямого выбора может быть представлен так:
1. Просматривая массив от первого элемента, найти минимальный элемент и поместить его на место первого элемента, а первый — на место минимального.

2. Просматривая массив от второго элемента, найти минимальный элемент и поместить его на место второго элемента, а второй — на место минимального.
3. И так далее до предпоследнего элемента.

to n do
a[i]:=StrToInt(stringgrid1.Cells[i-1,0]);// Ввод исходного массива
Label4.Caption:='';

imin:=i;
min:=a[imin];
for j:=i+1 to n do
if

a[j] begin
imin:=j;
min:=a[j]
end;