Array25. Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию (см. задание Array4). Если образуют, то вывести знаменатель прогрессии, если нет − вывести 0.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | program Array25; var a:array[1..10] of integer; N,i:Integer; znam:Real; begin Write('N: '); Readln(N); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; znam:=a[2]/a[1]; for i:=2 to N do if znam <> a[i]/a[i-1] then znam:=0; Writeln (znam); 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 | #include <stdio.h> 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]); } float z=(float)a[1]/(float)a[0]; for (i=1; i<n; ++i) { if (z!=(float)a[i]/(float)a[i-1]) { z=0; } } printf("%f\n: ",z); return 0; } |
JAVA
import java.util.Scanner;
public class arr25 {
public static void main(String[] args) {
Scanner sc = new Scanner(System.in);
System.out.print(«Enter N juft son: «);
int n = sc.nextInt();
int[] a = new int[10];
for (int i = 0; i < n; i++) {
a[i] = sc.nextInt();
}
int r=a[1]-a[0];
for (int i=1; i<n; ++i) {
if (r!=a[i]-a[i-1]) {
r=0;
}
}
System.out.println(r);
}
}