В массиве В (15) записано рост детей. Найти средний рост группы детей. Помогите с Турбо паскаль)

Question

Информатика

Дмитрий

12 сентября, 17:33

В массиве В (15) записано рост детей. Найти средний рост группы детей. Помогите с Турбо паскаль)

+5

Ответы (1)

Знаете ответ на вопрос?

Федула · Answer 1

Uses Crt;

Const

N = 15;

Var

B:array[1 ... N] of integer;

i:integer;

S:real;

Begin

ClrScr;

Randomize;

S:=0;

Write ('B (', N,') : ') ;

For i: = 1 to N do

Begin

B[i]:=random (71) + 130;

Write (' ', B[i]) ;

S:=S+B[i]

End;

WriteLn;

WriteLn ('Sr = ', S/N:0:2) ;

ReadLn

End.