Несколько задач на последовательность чисел - VB

Формулировка задачи:

Снова школьник нуждается в вашей помощи 1.Даны натуральные числа a1,a2,...,an.Указать те,у которых остаток от деления на M равен L(0<=L<=M-1) 2.В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов. 3.Дана последовательность действительных числе а1,а2,...,аn. Заменить все её члены, большие данного Z, этим числом. Подсчитать количество замен. 4.Дана последовательность действительных чисел а1,а2,...,аn. Выяснить, будет ли она возрастающей. Низкий поклон вам.

Решение задачи: «Несколько задач на последовательность чисел»

textual
                            Листинг программы 
                        

                            otvet=true
for i=1 to n-1
  if a(i) > a(i+1) then
    otvet=false
    exit for
  end if
next i
msgbox otvet
                        

Оцени полезность:

7 голосов , оценка 4.571 из 5

Похожие ответы