Задание:
1. Дан целочисленный массив из 30 элементов, которые могут принимать значения от 150 до 200 – рост учащихся выпускного класса. В баскетбольную командуберут тех, чей рост не менее 180 см. Напишите программу, которая подсчитывает число претендентов в состав баскетбольной команды и выводит номера подходящих кандидатур.
Решение:
Program Zn; var m: array[1… 30] of byte; c,i: integer; Beginfor i: =1 to 30 do beginwriteln ('Введите рост кандидата'); Readln (m[i]); if m[i]>=180 then inc (c) end; writeln ('Количество подходящих кандидатур: ',c); end. (Программа проверена и откомпелирована на Pascal.NET, если есть вопросы, пишите)
Знаете другой ответ?