Array24. Дан целочисленный массив размера N, не содержащий одинаковых чисел. Проверить, образуют ли его элементы арифметическую прогрессию (см. задание Array3). Если образуют, то вывести разность прогрессии, если нет — вывести 0.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
program Array24; var a:array[1..10] of integer; N,i,Raz:Integer; begin Write('N: '); Readln(N); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; raz:=a[2]-a[1]; for i:=2 to N do if raz <> a[i]-a[i-1] then raz:=0; Writeln (Raz); end. |
Другие задачи из раздела Array можно посмотреть здесь.
Преобразование элементов между наибольшим и наименьшим массивом элементов массива в 0
Зря они в условии написали, что массив не содержит одинаковых чисел. А ведь арифметическая прогрессия может быть и с нулевым знаменателем. И задача была бы полной.