Задана последовательность из n вещественных чисел. Опреде- лить количество чисел, больших своих соседей, т. е. предыдущего и последующего числа.
Ответы
Ответ дал:
0
const
n = 50;// количество элем массиваvar
a: array [1..n] of integer;
kol, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 2 to n - 1 do
if (a[i] > a[i + 1]) and (a[i] > a[i - 1]) then
kol := kol + 1;
writeln(kol);
end.
n = 50;// количество элем массиваvar
a: array [1..n] of integer;
kol, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 2 to n - 1 do
if (a[i] > a[i + 1]) and (a[i] > a[i - 1]) then
kol := kol + 1;
writeln(kol);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад