Пример 9.7

Даны целочисленные векторы C(20) и D(35), содержащие положительные, отрицательные и нулевые элементы. Найти первый по порядку положительный элемент вектора и его индекс.

Алгоритм главной программы

Алгоритм подпрограммы

program example97;

type

t = array [1..35] of real;

var

cd: t;

j: integer;

procedure pod (a: t; m: integer);

var

i: integer;

begin

i:=1; while (a[ i ] <= 0) and (i <= m) do i:= i + 1;

if i <= m then write (a [ i ]:6:2, i:2)

else write ('положительных элементов нет')

end;

begin

for j:=1 to 20 do read (c[ j ]); writeln;

for j:=1 to 35 do read (d[ j ]); writeln;

pod (c, 20); pod (d, 35)

end.

Программа использует процедуру pod, с помощью которой в каждом из исходных массивов ищется первый по порядку положительный элемент и определяется его индекс. Хотя исходные массивы имеют разную длину, в главной программе они описаны как массивы одного типа и, следовательно, одинаковой длины. Сделано это для того, чтобы типы соответствующих фактических и формальных параметров совпадали.