В заданном массиве a [1 ... 10] of integer определить количество элементов, которые больше заданного К

Question

Информатика

Эмиль

29 апреля, 16:42

В заданном массиве a [1 ... 10] of integer определить количество элементов, которые больше заданного К

+5

Ответы (1)

Знаете ответ на вопрос?

Леоня · Answer 1

Var

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.