Найти все элементы массива больше его среднего арифметического

summa := 0;

Fori:=1 tondo

summa := summa + a[i];

Sred_Arif := summa / n

Fori:=1 tondo

Ifa[i] > Sred_Arif Then Writeln ( a[i] );

2.2 Нахождение МАКС/МИН значения массива и его адреса (темпера туры за месяц).

max := а[1]; { max - максимальный, элемент}

Nmax := 1 ; { Nmax- номер макс. элемента}

Fori:=1 tondo

Ifa[i] > max Then ( Ifa[i] < min Then )

Begin

max := a[i];

Nmax := [i];

еnd;

1)если в условии знак > то мы находим максимальный элемент, если знак <то минимальный.

2) если неравенство строгое (>или <) то мы находим первый максимальный или минимальный элемент, а если нестрогое (>=или<=) то последний.

Изменение элементов массива.

Пример: увеличить вдвое каждый элемент массива.

Fori:=1 tondo

a [i] := a[i] * 2;

Нахождение количества элементов по условию.

Пример: найти количество чётных элементов массива. Коl:=0;

Fori:=1 tondo

Ifa[i] mod 2 = 0Thenkol:= kol + 1;

Сортировка массива.

Метод прямого выбора.

For k :=1 to 5 do read(a[k]); {ввод массива}

For i:=to 5-1 do

Begin

min := i;

for c := i + 1 to 5 do

if a[c] < a[min] then min := c;

buf := a[i];

a[i] := a[min];

a[min] := buf;

For k :=1 to 5 do write (a[k],’ ‘); {вывод массива}

Writeln;

End;

buf- буфер обмена,

с- элемент сравниваемый с минимальным

min - номер минимального элемента в части от i до верхней

границы массива.

k - номер элемента массива.

Принцип поиска:

- просматривая массив от первого элемента, найти минимальный элемент и поместить его на место первого элемента, а первый на место минимального.

- просматривая массив от второго элемента, найти минимальный элемент и поместить его на место второго элемента, а второй на место минимального.

- и так далее.