С клавиатуры вводится 9 чисел.Опеределить сколько из них больше первого. (Паскаль)

С клавиатуры вводится 9 чисел.Опеределить сколько из них больше первого. (Паскаль)

Задать свой вопрос
1 ответ

var first, n, i, coun;

begin

read(first);

for i := 2 to 9 do begin

read(n);

if n gt; first then coun := coun + 1;

end

write(coun);

end

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт