Дан массив, состоящий из 14 элементов. массив заполняется пользователем после запуска программы. составьте программу нахождения количества элементов > 15 в массиве
akhmedkhatataev95
3
03.10.2019 06:00
1
Другие вопросы по теме Информатика
соня1584
17.09.2019 18:50
lerahmru
25.09.2019 06:30
perizatttt
25.09.2019 06:30
Дарига65
25.09.2019 06:30
TvoePolusladkoe
25.09.2019 06:30
каринааааа12
25.09.2019 06:30
242Bob
09.06.2019 01:40
yuliyaefremova3
09.10.2019 11:27
Популярные вопросы
- Заполните таблицу.число гирляндчисло шаров в каж- красныедой гирляндесиниежелтые...
1 - Втрех корзинах - яблоки. в 1й - на 6 кг меньше, чем в оставшихся в сумме. во...
3 - Разложите на множители-1)2xy²-18 2)4xy²-16x 3)c(c-3)+(c²-9) 4)m⁴+2m³-m-2 оч надо...
1 - 50 ! нужно составить хокку и танку ( желательно на не плагиатить из интернета...
1 - Назовите чины вооружённых сил россии...
2 - клавдия николаевна вложил в банк «открытие» 451000 тысячу рублей под 9% годовых....
3 - Определите массу углекислого газа (co2)находящегося в вместимостью 20л под давлением...
1 - Вчем состоят национальные интересы россии с точки зрения интересов личности,...
1 - Автомашина, скорость которой равна 7 м/с, тормозит и через 6 секунд останавливается...
3 - Вяких умовах і коли була проголошена незалежна карпатська україна і як склалась...
3
const n=14;
var a:array [1..n] of integer;
i,k:integer ;
begin
for i:=1 to n do read(a[i]);
write ('Массив: ');
for i:=1 to n do
begin
if a[i]>15 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln('Количество элементов больше 15: ',k);
end.