Последовательно ввести N натуральных чисел и определить сколько среди них было введено больших первого

Question

Информатика

Юраха

14 марта, 09:39

Последовательно ввести N натуральных чисел и определить сколько среди них было введено больших первого

+3

Ответы (1)

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

Валейка · Answer 1

Var

n, f, x, k, i: integer;

begin

read (n) ;

read (f) ;

k : = 0;

for i : = 2 to n do

begin

read (x) ;

if x > f then

k : = k + 1

end;

write (k)

end.