• Напишите полностью программу в Turbo Pascal .Создать программу в Turbo Pascal..
    Пользователь вводит n элементов массива. Требуется определить количество элементов, значение которых больше, чем у предыдущего элемента массива

Ответы 1

  • var    a: array[1..100] of integer;    i, n, k: integer;begin    readln(n);    readln(a[1]);    for i := 2 to n do     begin        readln(a[i]);        if (a[i - 1] < a[i]) then k := k + 1;    end;    writeln(k);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years