Алгоритмы обработки

Алгоритмы обработки

1.     Поиск минимального элемента:

min:=a[1];

For i:=2 to 10 do

If a[i]< min then min:= a[i];

2.     Замена наибольшего элемента массива на 0:

max:=a[1]; imax:=1; For i:=2 to 10 do

If a[i] > max then begin

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

end; a[imax]:=0;

В переменной max получаем наибольший элемент массива, а в переменной imax – индекс наибольшего элемента.

3.     Удаление наибольшего элемента из массива:

max:=a[1]; imax:=1; For i:=2 to 10 do

If a[i] > max then begin

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

end;

For i:= imax to 9 do {сдвиг элементов, начиная с наибольшего и a[i]:=a[i+1];        до конца массива}

4.     Перенос наибольшего элемента в начало массива:

max:=a[1]; imax:=1; For i:=2 to 10 do

If a[i] > max then begin

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

end;

For i:= imax downto 2 do {сдвиг элементов в противоположную a[i]:=a[i-1];                 сторону, начиная с наибольшего и до

первого элемента массива}

a[1]:=max;

5.     Поиск суммы четных элементов массива:

S:=0;

For i:=1 to 10 do

If a[i] mod 2 = 0 then S:=S+ a[i];

Рассмотрим пример программы целиком.