Взаданном массиве a [1..10] of integer определить количество элементов, которые больше заданного к
Lesya2601
1
16.08.2019 15:20
0
Другие вопросы по теме Информатика
soborsasha
07.08.2019 00:10
Asherok
07.08.2019 00:10
petyasmolin
22.07.2019 20:30
dashabur2005
22.07.2019 20:30
mama28163001
22.07.2019 20:30
demkivskabogdan
22.07.2019 20:30
vitya123567
22.07.2019 20:30
v3tpr33
22.07.2019 20:30
ghc6
22.07.2019 20:30
Популярные вопросы
- Дан кристаллический хлорид магния.получите гидроксид магния....
2 - Sin^2x+2sin x cos x - 3 cos^2x =0 как решить? принцип решения,и объяснение подробное...
2 - Перевести следующие предложения на язык. переводчик учитель забраковал,так что...
2 - Предложение со словами: на ципочках,со слепу,под силу,без устали,с налёту,надому)...
3 - Найти лирическое отступление в метрвые души в 11 главе точнее я нашел но мне надо...
1 - :с учебника допишите определение. режим дня -...
3 - 1.он молча посмотрел снизу вверх и сделал короткое слабое движение лежавшими на...
1 - Всякое ли поведение человека можно назвать какие качества необходимы человеку...
3 - При каких делителях остаток не может равнятся 4 2 7...
3 - Формула для нахождения скорости записывается… 1: v = tl 2: v = t/l 3: v = l/t...
1
a:array [1..10] of integer;
b,i,k:integer;
begin
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
if a[i]>k then b:=b+1;
writeln(b);
end.