Дан массив размера n. найти минимальный из его локальных максимумов (локальный максимум – это элемент, который больше любого из своих соседей).
238
458
Ответы на вопрос:
Program z1; var a: array [1..1000] of integer; b: array [1..1000] of integer; i,j,n,min,m: integer; begin write('введите размер массива - '); readln(n); randomize; for i: =1 to n do begin a[i]: =random(50)-0; write (a[i],' '); end; j: =1; for i: =2 to n-1 do begin if ((a[i]> a[i-1]) and (a[i]> a[i+1])) then begin b[j]: =a[i]; j: =j+1; end; end; m: =j-1; writeln; for j: =1 to m do write (b[j],' '); min: =b[1]; for j: =2 to m do if (b[j]< min) then min: =b[j]; writeln; writeln(min); end.
2290, то есть 2 тысячи
Объяснение:
НЕ Попов И Радио = 3550
Попов И Радио = 2290
Попов И Радио = Радио И Попов
Не Радио И Попов = 470
Популярно: Информатика
-
pinksuuun03.06.2021 22:23
-
vaki325.05.2022 08:10
-
ева51403.06.2023 06:48
-
джокер6510.05.2021 14:04
-
хлюпхлюпик06.02.2020 23:06
-
Angelina1000103.12.2020 18:45
-
zulu5102.05.2022 19:54
-
gybshova03.04.2021 01:21
-
Den3000108.08.2022 15:09
-
иортььо25.01.2023 04:53