Написать программу на языке паскаль авс.(с объяснением) дан целочисленный массив из 30 элементов.элементы могут принимать значения от 160-200-рост учащихся выпускного класса .в баскетбольную команду берут тех,чей рост не менее 180 см.напишите программу ,которая подсчитывает и вводит минимальный рост игрока баскетбольной команды.гарантируется,что хотя бы один ученик играет в баскетбольной команде. заранее .
makushevvaleraozlps7
1
27.07.2019 00:20
1
Другие вопросы по теме Информатика
asya13051
29.05.2019 03:10
сырнаядуша
29.05.2019 03:10
Кети20060106
29.05.2019 03:10
Mаster001
29.05.2019 03:10
Stanislav69
29.05.2019 03:10
Litoli
29.05.2019 03:10
xaxaxxa
29.05.2019 03:10
Farpli
29.05.2019 03:10
макс3013
23.12.2020 14:10
Популярные вопросы
- На какие две группы можно поделить стихийные бедствия...
2 - Глюкоза масою 180 кг утворилась унаслідок реакції фотосинтезу....
3 - Зачем водоплавающие птицы на лапах плавательной перепонки? ...
2 - 3 - тапсырма . « Бірлігі берік , ынтымағы жарасқан елдің болашағы...
3 - Якомога більше балів потрібно....
1 - Англ .sentences using Present Continuous Tense. Use words in table....
3 - Якого походження бувають острови?...
3 - До магазину привезли 600 упаковок соку. Першого дня продали -...
2 - Отправте номер телефон будить лд или лп 16-15лет ...
1 - . Ваші гроші лежать на вкладі зі ставкою 7% річних, а щорічна...
1
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<min) then min:=k
end;
Writeln('Минимальный рост игрока равен ',min,' см.')
end.