Array34. Дан массив размера N. Найти максимальный из его локальных минимумов (определение локального минимума дано в задании Array32).
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | program Array34; var a:array[1..10] of integer; N,i,Max:Integer; checkbox:boolean; begin Write('N: '); Readln(N); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; Max:=0; if a[1]<a[2] then begin Max:=a[1]; checkbox:=False; end else checkbox:=True; for i:=2 to N-1 do if (a[i-1]>a[i]) and (a[i]<a[i+1]) then if (a[i]>Max) or checkbox then begin Max:=a[i]; checkbox:=False; end; if (a[N-1]>a[N])then if (a[N]>Max) or checkbox then begin checkbox:=False; Max:=a[N]; end; Writeln(Max); readln; end. |
>
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | #include int main(void) { int a[10]; int n; printf("N: "); scanf("%i",&n); int i; for (i=0; i<n; ++i){ printf("a[%i] : ",i+1); scanf("%i",&a[i]); } int c=1,max; for (i=1;i<n-1;++i){ if ((a[i-1]>a[i]) && (a[i]<a[i+1])) { if ((a[i]>max)||c){ max = a[i]; c = 0; } } } if ((a[0]<a[1])&&((a[0]>max)||c)){ max=a[0]; c=0; } if ((a[n-1]<a[n-2])&&((a[n-1]>max)||c)){ max=a[n-1]; c=0; } printf("%i \n",max); return 0; } |
добавте Java пж !!!
Работаем также на языке программирования Java
vvvvvvvvvbbbbbbbbbbbbbbbfffffffffffffffbffbb
Можно пожалуйста на языке C#?
НЕльзя
это на котлине
var n = 10
var a = IntArray(n){(Math.random()*10).toInt()}
println(a.joinToString())
var max = 0
for (i in 1..n-1) {
if (a[i-1]>a[i] && a[i]max) {
max = a[i]
}
}
}
println(«max: $max»)
// читайте вопрос тщательно. я сам запутался. но я решил задачку
fun main() {
var n = 10
var a = IntArray(n){(Math.random()*10).toInt()}
println(a.joinToString())
var max = 0
for (i in 1..n-1) {
if (a[i-1]>a[i] && a[i]max) {
max = a[i]
}
}
}
println(«max: $max»)
}
program qq;
var N,k:integer;
A:array [0..10] of real;
D1,D2,B:real;
Begin
write(‘N — ‘);
read(N);
for k:= 1 to N do
begin
write();
read(A[k]);
end;
if A[1]>A[2] then D2:=A[2]
else D2:=A[1];
for k:=2 to N do
begin
if (A[k]<A[k+1]) and (A[k]A[k+1]) and (A[k+1]<D2) then D2:=A[k+1];
end;
writeln(D2);
for k:= 2 to N do
if (A[k]<A[k-1]) and (A[k]D2) then
begin
D1:=A[k];
D2:=D1;
end;
writeln(D1);
end.