1. Описать массив, подходящий для представления роста (в см) призывников в РА из 115 группы.

2. Написать программу, заполняющую массив данными (не упорядоченными) с клавиатуры и печатающую средний рост призывников.

3. Включить в программу функцию, определяющую порядковый номер самого высокого призывника.

4. Включить в программу функцию, определяющую количество призывников, имеющих рост не более чем на 10% отличающийся от роста самого высокого призывника (включая его)

Массивы одномерные

Рост примерный

Паскаль АВС

Const

n=5;

type

MyArr=array[1 ... n] of integer;

var ar:MyArr;

i, maxi, val:integer;

k:real;

function Maxii (ar:MyArr) :

integer;

var i, max:integer;

begin;

Max:=-2147483648;

for i:=1 to n do

if ar[i]>max then

begin;

max:=ar[i];

maxii:=i;

end;

end;

function Amp (ar:MyArr) : integer;

var i, max, s:integer;

p:real;

begin;

Max:=-2147483648;

for i:=1 to n do

if ar[i]>max then max:=ar[i];

p:=max/100*10;

for i:=1 to n do

if ar[i]>=max-p then inc (s) ;

Amp:=s;

end;

begin;

for i:=1 to n do

begin;

readln (ar[i]) ;

k:=k+ar[i];

end;

k:=k/n;

writeln ('Средний рост:', k) ;

maxi:=maxii (ar) ;

writeln ('Самый высокий призывник:', maxi) ;

val:=Amp (ar) ;

writeln ('4:', val) ;

end.