Дан массив, состоящий из целых чисел. Напишите программу, которая в данном массиве определит количество элементов, у которых есть два соседних элемента и при этом они оба меньше данного. Входные данные
Сначала задано число N — количество элементов в массиве (1<=N<=100). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел.
Выходные данные
Необходимо вывести количество элементов массива, у которых два соседа и которые при этом строго больше обоих своих соседей.
Примеры
входные данные
5
1 2 3 4 5
выходные данные
0
входные данные
5
1 5 1 5 1
выходные данные
2
Решить на C++
USES CRT;
VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;
BEGIN
ClrScr;
ReadLn(n);
m1:=n;
n1:=m1 div 100;
n2:=m1 mod 10;
n3:=(m1-n1*100-n2) div 10;
if n1=n2 then if n1=n3 then writeln('vse =');
if n1=n2 then writeln('1 i 3 =');
if n2=n3 then writeln('2 i 3 =');
if n1=n3 then writeln('1 i 2 =')
else writeln('<>');
END.
Проверяйте, что непонятно - спрашивайте.
Можно чуть поправить вывод, чтобы когда vse =, не вылезали 1 i 3, 1 i 2, 2 i 3.
Да и вообще writeln'ов можно наставить и переменные назвать покрасивше. но это уж вы сами, думаю, справитесь. В VAR у меня тоже есть лишние переменные, переделывал старый свой код наспех =)
Всего хорошего.
Цикл со счётчиком"
В начале присваивает заданной переменной (переменная-счётчик) начальное число. Переменной-счётчиком может быть любая переменная типа integer, затем в зависимости от направления прибавляет (to) или убавляет (downto) счётчик на единицу. Цикл начинает повторение пока счётчик будет меньше или равен второму числу. Когда счётчик стал больше второго числа, цикл выполняет строки команд до конца, но уже не начинает повторять из снова.
В строках с командами цикла не должно быть команды, которая изменяет значение счётчика, иначе будет ошибка. Счётчик нельзя изменять внутри цикла пока он идёт.
Запись
for ПеременнаяСчётчик := Число Направление Второечисло do
begin
Строки с командами, которые должен повторять цикл;
end;
Пример
Программа, которая выводит числа от 5 до 10 и в конце пишет "Конец"
program raf105;
var i: integer;
begin
for i:=5 to 10 do
begin
writeln(i);
end;
writeln('Конец');
end.