• Привет, помогите пожалуйста, как решить три задачи(ниже) в паскаль?
    1)Определить командное время в эстафете, если известно время пробега каждого участника.
    2) В саду 15 деревьев, известна высота каждого дерева. Определить среднюю высоту деревьев в саду.
    3) Определить количество человек, прошедших отбор в баскетбольную секцию. Принимаются те, у кого рост выше 160 см.

Ответы 1

  • 1.program nom1;const n=8;var a:array[1..n] of integer; i,t:integer;beginfor i:=1 to n doread(a[i]);t:=0;for i:=1 to n dot:=t+a[i];write('Командное время = ',t);end.2.program n2;const N=15;var a:array[1..N] of integer;i:integer;v:real;beginfor i:=1 to N do a[i]:=random(30);v:=0;for i:=1 to N dov:=v+a[i];v:=v/N;writeln('Сред высота =',v);end. 3.program n3;const N=12;var a:array[1..N] of integer;i,c:integer;beginfor i:=1 to N do a[i]:=random(120)+100;c:=0;for i:=1 to N doif a[i]>160 then c:=c+1;writeln('Kол-во прошедших = ',c);end.
    • Автор:

      boozer
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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