Решение

Пусть а1 − первый член прогрессии, a k − ее разность, тогда i−й член можно найти по следующему правилу: a[i]:=a[i-1]+k, или

a[i]:=a1+k*(i-1); если i=1, тo a[i]:=a1. Опишем процедуру, в которую передаются два параметра, а результатом является одно­мерный массив. Его первый элемент равен первому чле­ну прогрессии, второй − второму − и так далее.

Program Example_101;

Procedure Progress (a1, k: Integer;

Var a: myarray);

Var i: Integer;

Begin

a[1]:=a1;

For i:=2 To n Do

Begin

a[i]:=a[i-1]+k;

Write(a[i]:5);

End;

End;

Работа с несколькими массивами

Пример

Даны два одномерных массива − А и В. Найти их скалярное произведение.

Решение

Скалярным произведением двух массивов одинако­вой размерности называется сумма произведений соот­ветствующих элементов:

a[1]*b[1]+a[2]*b[2]+...+a[n-1]*

*b[n-1]+...+а[n]*b[n],

где n − количество элементов в массивах.

Program Example_102;

Function Sp (a, b: myarray): longint;

Var i: Integer;

s: Longint;

Begin

s:=0;

For i:=1 To n Do s:=s+a[i]*b[i];

Sp:=s;

End;

Удаление элементов из одномерного

Массива

Пример 1

Удалить из массива, в котором все элементы различ­ны, максимальный элемент. После удаления максималь­ного элемента массив "уплотнить", сдвинув все следую­щие за ним элементы влево. Последнему (самому право­му) элементу массива присвоить 0.