Помогите пожалуйста написать программу на языке паскаль АВС.(с объяснением) Дан целочисленный массив из 30 элементов.Элементы могут принимать значения от 160-200-рост учащихся выпускного класса .В баскетбольную команду берут тех,чей рост не менее 180 см.напишите программу ,которая подсчитывает и вводит минимальный рост игрока баскетбольной команды.гарантируется,что хотя бы один ученик играет в баскетбольной команде. Заранее спасибо.
Вы поможете?
Не хочется. Писать полтора десятка строк там, где в ABC.NET достаточно пяти...
Ну помогите пожалуйста,очень нужно.
Когда нужно, не ставят за задачу, где надо писать программу, 5 баллов.
На первый раз, ладно, напишу. Но возьму, как говорят. "на карандаш".
Хорошо
Кстати,почему 5 баллов ,если снимают 10?
https://brainly.zendesk.com/hc/ru/articles/206896885-Сколько-баллов-получит-тот-кто-ответит-на-мой-вопрос-
Читайте раздел "Общие вопросы" - там есть много полезного
Спасибо,буду знать
Const n=6; var a:array[1..n] of integer; i,k,min:integer; begin Writeln('Введите ',n,' значений роста в см (160-200)'); min:=201; for i:=1 to n do begin Read(k); if (k>=180) and (k end; Writeln('Минимальный рост игрока равен ',min,' см.') end.
Ошибся в прикидке. Написал полтора десятка строк, получилось 14.
Спасибо большущее)
Кнопочка тут есть для "спасибо" )
Я вижу
Для ленивых)
Нет, чтобы не задавать модераторам лишней работы. они потом комментарии руками удаляют.