Перебои все элементы массива, а потом через "%/2" проверку сделай. Воаля.
В ходе лабораторных и математических исследований я выяснил, что эта ерунда нафиг не нужна в современной информатике (только если вы не работаете преподом)
3487 байт /1024 =... кбайт
35.4 гбайт/1024/1024= ... кбайт
32 бит /8 =… байт
22 бита = 22 бит
//Pascal ABC.NET v3.1 сборка 1172
Const
n=4;
Var
ar:array[1..n] of integer;
i,j:integer;
k:real;
begin
writeln('Array:');
for i:=1 to n do
readln(ar[i]);
k:=ar[1]/ar[2];
for i:=1 to n-1 do
if ar[i]/ar[i+1]<>k then
begin
writeln('No');
exit;
end;
writeln('Yup');
end.
Пример ввода:
1
2
4
8
Пример вывода:
Yup