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

Question

Информатика

Саверий

22 марта, 00:59

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

+5

Ответы (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.