Фрагменты вычисления характеристик одномерного массива

Характеристика

Для всех элементов a_i

Для части элементов

1. Сумма

s

s:=0;

for i:=1 to n do

s:=s+A[i];

s:=0;

for i:=1 to n do

if A[i]>z then

s:=s+A[i];

2. Количество

k

k:=n;

k:=0;

for i:=1 to n do

if A[i]>z then

k:=k+1;

3. Произведение

p

p:=1;

for i:=1 to n do

p:=p*A[i];

p:=1;

for i:=1 to n do

if A[i]>z then

p:=p*A[i];

4. Максимальное значение

max

max:=A[1];

for i:=2 to n do

if A[i]>max then

max:=A[i];

max:=-1E10;

for i:=1 to n do

if (A[i]>max) and (A[i]>z) then

max:=A[i];

5. Минимальное значение

min

min:=A[1];

for i:=2 to n do

if A[i]<min then

min:=A[i];

min:=1E10;

for i:=1 to n do

if (A[i]<min) and (A[i]>z) then

min:=A[i];

6. Среднее значение

sr

s:=0;

for i:=1 to n do

s:=s+A[i];

sr:=s/n;

s:=0; k:=0;

for i:=1 to n do

if A[i]>z then

begin

s:=s+A[i]; k:=k+1;

end;

sr:=s/k;

1. Ввод элементов массива

writeln('Введи массив A');

for i:=1 to n do

read(A[i]);

2. Вывод элементов массива

writeln('Массив A');

for i:=1 to n do

writeln(A[i]:10:3);

3. Замена элементов массива на величину z

for i:=1 to n do

A[i]:=z;

4. Увеличение элементов массива на величину z

(аналогично уменьшение, умножение, деление)

for i:=1 to n do

A[i]:=A[i]+z;

5. Вычисление нового массива B прибавлением к элементам массива A величины z

(аналогично вычитанием, умножением, делением)

for i:=1 to n do

B[i]:=A[i]+z;

6. Вычисление индекса максимального элемента i_max

(аналогично минимального)

max:=A[1]; imax:=1;

for i:=2 to n do

if A[i]>max then

begin

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

end;

7. Перестановка 1-го и 2-го элементов массива

c:=A[1]; A[1]:=A[2]; A[2]:=c;