PASCAL ABC.NET Безотлагательно НУЖНА ПОМОЩЬ!8)Даны натуральное число N и вещественные числа
PASCAL ABC.NET Безотлагательно НУЖНА ПОМОЩЬ!
8)
Даны естественное число N и вещественные числа a1, a2, , aN. Отыскать количество вещественных
чисел, которые больше собственных соседей, т. е. предшествующего и следующего.
Входные данные
Во входном потоке в первой строке записано число N (1 lt;= N lt;= 10000). Во 2-ой строке через пробел
записаны N вещественных чисел ai(-10000 lt;= ai lt;= 10000).
Выходные данные
В выходной поток следует записать количество вещественных чисел, которые больше собственных соседей.
Пример
Исходные данные
9
3 -1 12 5 -17 5 2 15 -5
Итог
3
9)
Даны естественное число N и целый числа a1, a2, , aN. Отыскать количество пар "соседних" чисел ai, одинаковых между собой.
Входные данные
Во входном потоке в первой строке записано число N (1 lt;= N lt;= 10000). Во 2-ой строке через пробел
записаны N целых чисел ai(-10000 lt;= ai lt;= 10000).
Выходные данные
В выходной поток следует записать количество пар "соседних" чисел ai, одинаковых между собой.
Пример
Исходные данные
9
3 -1 -1 5 -17 5 2 2 -5
Итог
2
10.
Даны естественное число N и целый числа a1, a2, , aN. Найти количество пар "соседних" чисел ai
,
являющихся четными числами.
Входные данные
Во входном потоке в первой строке записано число N (1 lt;= N lt;= 10000). Во 2-ой строке через пробел
записаны N целых чисел ai(-10000 lt;= ai lt;= 10000).
Выходные данные
В выходной поток следует записать количество пар "примыкающих" чисел ai
, являющихся четными числами.
Пример
Начальные данные
10
3 0 4 5 -17 5 2 14 -5
Результат
2
// PascalABC.NET 3.3
begin
var n:=ReadInteger();
var a:=ReadArrReal(n);
var k:=a.Where((x,i)-gt;(igt;0)and(ilt;n-1)and
(a.ElementAt(i)gt;a.ElementAt(i-1))and(a.ElementAt(i)gt;a.ElementAt(i+1))).Count;
Writeln(k);
end.
Пример:
9
3 -1 12 5 -17 5 2 15 -5
3
9)
begin
var n:=ReadInteger();
var a:=ReadArrInteger(n);
var k:=a.Where((x,i)-gt;(ilt;n-1)and(a.ElementAt(i)=a.ElementAt(i+1))).Count;
Writeln(k);
end.
Пример:
9
3 -1 -1 5 -17 5 2 2 -5
2
10)
begin
var n:=ReadInteger();
var a:=ReadArrInteger(n);
var k:=a.Where((x,i)-gt;(ilt;n-1)and(a.ElementAt(i) mod 2=0)and(a.ElementAt(i+1) mod 2=0)).Count;
Writeln(k);
end.
Пример:
10
3 0 4 5 -17 5 2 14 -5
2
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.