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

Question

Информатика

Ларуля

29 сентября, 12:52

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

+1

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