Последовательно ввести N натуральных чисел и определить сколько среди них было введено больших первого
Последовательно ввести N натуральных чисел и определить сколько среди них было введено больших первого
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы