Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Процедура: определить наибольший острый угол треугольника со сторонами a, b, c (используя теорему косинусов) https://www.cyberforum.ru/ delphi-beginners/ thread2236091.html
Как максимально упростить эту программу ??? uses Math; procedure ugol(a,b,c:double;var u:double); begin u:=radtodeg(arccos((b*b+c*c-a*a)/(2*b*c))); end; procedure...
Delphi Пустая строка
Когда строка пустая пользователь нажимает Ok выскакивает ошибка как её убрать?
Delphi Строки в Делфи https://www.cyberforum.ru/ delphi-beginners/ thread2236001.html
Помогите с программой пожалуйста. Вот код, работает вроде корректно. Но мне надо, например: ввожу "привет,мир", на выходе получаю - "привет," "мир" Надо чтобы было так: "привет" "," "мир"....
Delphi Ошибка Unit1.pas(9): File not found: 'frmMain.dcu' При попытке вставить заставку в программу вылетает такая ошибка. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Dialogs, Grids,... https://www.cyberforum.ru/ delphi-beginners/ thread2235982.html
Delphi Delphi 7 таймер
Всем привет! Подскажите как приостановить таймер. У меня программа выполняет действие по таймеру, но если клиент нажимает клавишу (определённую) программа перехватывает нажатие и должно...
Delphi Многоканальная СМО с отказами ( система массового обслуживания - Delphi) https://www.cyberforum.ru/ delphi-beginners/ thread2235935.html
Составить программу решения задачи в среде программирования Delphi. На промышленном предприятии решается вопрос о том, сколько потребуется механиков для работы в ремонтном цехе. Пусть предприятие...
Delphi Не отображает изменения при компиляции Добрый день, делаю изменения на форме делфи, компилирую проект, а он мои изменения не показывает, показывает старый результат. подскажите в чем проблема? https://www.cyberforum.ru/ delphi-beginners/ thread2235904.html Delphi вывести на экран таблицу сложения одноразрядных четных чисел
Разработать программное обеспечение и обчислить значение выражения и вывести на экран формы, таблицу сложения одно разрядных двойных чисел. (Кое как перевел с украинского)
Delphi Вычислить значение функции arccos x Разработать программное обеспечение и обчислить значение функции arccos x, использовав для этого стандартные функции оболочки Делфи, если дано число х (l<=x<=10). https://www.cyberforum.ru/ delphi-beginners/ thread2235832.html Delphi Охарактеризовать библиотеку визуальных компонентов VCL и описать ее базовые классы https://www.cyberforum.ru/ delphi-beginners/ thread2235815.html
Охарактеризовать библиотеку визуальных компонентов VCL и описать ее базовые классы
СЛАУ методом сопряженных градиентов Delphi Delphi
Всем привет. Хочу заказать работу. Кто может помочь? Литература, алгоритм есть.
Delphi Нужна сортировка для StringGrid для дробных чисел https://www.cyberforum.ru/ delphi-beginners/ thread2235747.html
Народ помогите адаптировать данный код, чтобы он мог сортировать дробные числа в StringGrid. procedure SortStgingGrid(var stgMatr1: TStringGrid;////Сортировка const...
Эксперт Pascal/Delphi
6797 / 4559 / 4814
Регистрация: 05.06.2014
Сообщений: 22,438
27.04.2018, 18:38 0

В составе баскетбольной команды 12 игроков. Сколько игроков в команде имеют рост, меньший среднего роста команды? - Delphi - Ответ 12345443

27.04.2018, 18:38. Показов 1238. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено morpex224 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  N = 12;
 
var
  a: array [1..N] of integer;
  k, i, j: integer;
  sr: real;
 
begin
  for i := 1 to N do 
  begin
    readln(a[i]);
    sr := sr + a[i];
  end;
  sr := sr / n;
  k := 0;
  for i := 1 to N do 
    if a[i] < sr then
      inc(k);
  writeln(k);
end.


Вернуться к обсуждению:
В составе баскетбольной команды 12 игроков. Сколько игроков в команде имеют рост, меньший среднего роста команды? Delphi
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.04.2018, 18:38
Готовые ответы и решения:

Найти минимальный рост игрока баскетбольной команды
Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200-рост...

Правильно пронумеровать игроков волейбольной команды
Национальная сборная команда по волейболу формируется из 10 игроков нескольких клубов. Известны...

Подсчитать и вывести минимальный рост игрока баскетбольной команды
Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200 ¬– рост...

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2018, 18:38
Помогаю со студенческими работами здесь

Получить название команды, в которой нет игроков
Получить название команды, в которой нет игроков. использовать (not in)

Одномерный массив. Найти минимальный рост игрока баскетбольной команды
Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200-рост...

Найти и вывести рост самого высокого участника баскетбольной команды
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от 150 до 200 -...

В первую строку вывести силы игроков первой команды, во вторую - второй
N игроков хотят разбиться на две команды. Причем хотят разделиться так - самый сильный игрок - в...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru