массив

[KseniyaSila]

В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1. Используя программу ранжирования, найти произведение 2-х наибольших и 2-х наименьших элементов массива.
2. Найти среднее арифметическое элементов с четными номерами массива.
3. Преобразовать массив таким образом, чтобы сначала располагались все элементы, отличающиеся от максимального не более чем на 10 %, а потом — все остальные.

[nameless2152]

2

m := 0;
for i := 1 to n do
begin
    if i mod 2 = 0 then
        m := m + A[i];
end;
sred := m/(i div 2);

[nameless2152]

3

max := -1000;
for i := 1 to n do
begin
    if A[i]>max then max := A[i];
end;
k := 1;
for i := 1 to n do begin
    if A[i] >= max*0.9 and A[i] <= max* 1.1  and i<>k then
    begin
        c := A[k];
        A[k] := A[i];
        A[i] := c;
        k := k+1;
    end;
end;

Вроде так, но пишу без компилятара с планшета и в паскале давно не работал, мог подзабыть синтаксис.

[nameless2152]

3

t := 1;
while t = 1 do begin
    t := 0;
    for i := 1 to n-1 do
        if A[i] > A[i+1] do begin
            c := A[i];
            A[i] := A[i+1];
            A[i+1] := c;
            t := 1;
        end;
end;
multmax = A[n-1]*A[n];
multmin = A[1]*A[2];

Вот, если я правильно понял, что ранжирование это сортировка. Использован пузырьковый алгоритм