X: array [1 .. 20] of real;

n: byte;

begin

n := StrToInt (Edit1.Text);

StringGrid1.ColCount :=n;

for i := 1 to n do

x[i] := StrToFloat (StringGrid1.Cells [i-1, 0])

end;вывод массива

label3.Caption := 'Исходный массив';

With StringGrid2 do

begin

ColCount := n;

Visible := True; (если на одной форме)

for i:=1 to n do

Cells[i-1,0] := FloatToStr (x[i]);

end;

35)Вычисление суммы и произведения элементов, находящихся на различных местах в массиве. Примеры алгоритмов и их программирование.

36) Вычисление суммы, произведения, количества элементов в массиве, удовлетворяющих заданному условию. Примеры алгоритмов и их программирование.

37) Поиск максимальных и минимальных элементов массива, их номеров. Примеры алгоритмов и их программирование.

p:=x[1];

x[1]:=x[n]; n – число элементов массива, номер

последнего элемента.

x[n]:=p;

38) Формирование новых массивов. Примеры алгоритмов и их программирование.