Помогите написать прогу:
10-11 класс
|
Разработать алгоритм программы, которая проверяет, является ли введенный с клавиатуры массив убывающей последовательностью чисел.
uses crt;
var i:integer;
a:array[1..100] of real;
begin
writeln('Введите последовательность чисел. 0 - конец последовательности.');
read(a[1]);
i:=2;
while true do
begin
read(a[i]);
if a[i]=0 then
break;
if a[i]>=a[i-1] then
begin
writeln('No.');
halt;
end;
inc(i);
end;
writeln('Yes.');
end.
Комментарий удален
Да и цикла не нуна: просто каждое новое введенное число в сравнивать с предыдущим - если оно меньше предыдущего, запоминать последнее ( мона сообщать, что последовательность пока еще нужная, убывающая)) и ждать следующего, а если больше или равно, то прекращать работу. обчищать значение переменной и выдавать сообщение, что тока что была последовательность не та, не убывающая). А пока убывает мона сообщать, что последовательность пока еще нужная, убывающая))
Другие вопросы из категории
условии, что каждый символ кодируется одним байтом.
Напишите подробное решение.
Помогите решить задачу.
наименьшее число среди чётных элементов последовательности.
Читайте также
случаях, когда температура воздуха не выше –25 градусов, а также при ветре не менее 7 м/с и температуре воздуха не выше –20 градусов. По утренней сводке погоды определить, пойдут ли дети в школу.
Ребят, помогите! Тема: одномерные массивы. Две задачи:
1) Написать программу, которая из заданного одномерного массива размерности N находит сумму только тех элементов, значения которых больше некоторого значения S.
S=5; Массив: 0,4 5,6 -2 10,1
2) При поступлении в ВУЗ абитуриенты, получившие "Двойку" на первом экзамене, ко второму не допускаются. В массиве A[N] записаны оценки экзаменующихся, полученных на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену!
Заранее благодарю!