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

Ответы 1

  • uses Crt;Const   N = 15;Var   B:array[1..N] of integer;   i:integer;   S:real;BeginClrScr;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);ReadLnEnd.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years