Технология выполнения индивидуальных заданий. Часть 1 - 26 стр.

UptoLike

Составители:

Рубрика:

– Count – функция нахождения количества положительных элементов в

диапазоне индексов [kmin, kmax] заданного массива.

Текст программы

program Vect_1;

const nmax = 10;

type T_El= real;

vect = array[1..nmax] of T_El;

var a : vect;

n,i,kmin,kmax,k : integer;

procedure MinMax(n: integer; const a: vect;

var kmin, kmax: integer);

var i:integer;

begin

kmin:=1; kmax:=1;

for i:=2 to n do

begin

if a[i]<a[kmin] then kmin:=i;

if a[i]>a[kmax] then kmax:=i

end

end;

function Count (kmin,kmax: integer;

const a: vect):integer;

var i,k:integer;

begin

k:=0;