47.Математические выражения в языке Pascal. Примеры

Mas : array [ IMin .. IMax ] of T ;

Mas [ Ind ]

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

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

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

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. Ввод элементов массива

for i:=1 to n do

read(A[i]);

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

for i:=1 to n do

writeln(A[i]);

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

for i:=1 to n do

A[i]:=z;

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

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

for i:=1 to n do

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

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

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

for i:=1 to n do

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

11. Вычисление индекса максимального элемента 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;

12. Вывод индексов для части элементов

for i:=1 to n do

if A[i]>z then

writeln(i);

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

c:=A[1];

A[1]:=A[2];

A[2]:=c;