Array38. Дан массив размера N. Найти количество участков, на которых его элементы монотонно убывают.
>Решение 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 | program Array38; var a:array[1..10] of integer; N,i,Num:Integer; begin a[1]:=0; Write('N: '); Readln(N); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; Num:=0; for i:=3 to N do if (a[i-2]>a[i-1]) and not(a[i-1]>a[i]) then inc(Num); if a[N-1]>a[N] then inc(Num); Writeln(Num); 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 | #include <stdio.h> int main(void) { int a[10]; int n; printf("N: "); scanf("%i",&n); int i,num=0; for (i=0; i<n; ++i){ printf("a[%i] : ",i+1); scanf("%i",&a[i]); } for (i=2;i<n;++i){ if ((a[i-2]>a[i-1]) && !(a[i-1]>a[i])){ ++num; } } if (a[n-2]>a[n-1]) ++num; printf("%i \n",num); return 0; } |
#include
using namespace std;
int main()
{
int* a, n;
cin >> n;
a = new int[n];
int col = 0, rad = 0;
for (int i = 0; i > a[i];
}
for (int i = 1; i 0) {
++rad;
}
col = 0;
}
}
cout << rad;
}
JAVA
import java.util.Scanner;
public class arr38 {
public static void main(String[] args) {
Scanner sc = new Scanner(System.in);
System.out.print(«Enter n: «);
int n = sc.nextInt();
int[] a = new int[n];
for (int i = 0; i < n; i++) {
a[i] = sc.nextInt();
}
int count = 1;
for (int i = 1; i < a.length; i++) {
if (a[i-1] <= a[i]) count++;
}
System.out.println(count);
}
}