дан вектор размером n определить является ли числовая последовательность возрастающей ( числа вести в ручную)
10-11 класс
|
var
a:array[1..1000] of real;
n, i:integer;
check:boolean;
begin
write('n = '); readln(n);
check := true;
write('a[1] = ');
readln(a[1]);
for i := 2 to n do
begin
write('a[', i, '] = ');
readln(a[i]);
if a[i - 1] >= a[i] then
check := false;
end;
if check then
writeln('Последовательность возрастающая')
else
writeln('Последовательность не является возрастающей');
end.
Другие вопросы из категории
: Две первые цифры его записи являются одинаковыми между собой и две последние цифры также одинаковы между собой.Две первые цифры отличны от последних двух цифр.
Число является полным квадратом то есть оно является квадратом некоторого целого числа .
В ответе укажите четырёхзначное число в семеричной системе счисления.
Читайте также
только два числа: 1 и P. Определить, является ли введенное с клавиатуры число простым.
2) Дано число n. Верно ли, что это число содержит ровно 3 одинаковых цифры?
написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.
которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих , сумма цифр каждого из которых делится на ?"
Входные данные. Два числа
Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.