Программирование
+2Как написать в pascal Abc программу которая Определяет является ли последовательность арифметической прогрессией.
По дате
По рейтингу
d:=a[2]-a[1];
progress:=true;
for i:=4 to N do if a[i]-a[i-1]<>d then progress:=false
d:=a[2]-a[1];
progress:=true;
for i:=4 to N do if a[i]-a[i-1]<>d then progress:=false