#include <stdio.h>
#include <math.h>
float eps = 0.000001;
int main()
{
float n; scanf("%f", &n);
float a[n];
for (int i=0;i<n;i++)
scanf("%f", a[i]);
char toCopy = 1;
for (int i=1;i<n;i+=2)
if (abs(round(a[i]) - a[i]) > eps)
{toCopy = 0; break;}
if (toCopy)
int b[n/2];
for (int i=n-(n%2), j=0;j<n/2;i-=2, j++)
b[j] = (int)a[i];
}
Объяснение:
Предполагаю, что сначала указывается количество элементов исходного массива. Далее происходит все то, что вы описали. eps - погрешность для определения целого числа, чем оно меньше - тем точнее числа будут определяться как дробные
var
i, a, b, n, n2, j: longint;
s: string;
flag: boolean;
begin
Write('Введите через пробел границы диапазона: ');
Readln(a, b);
if b < a then begin n := a; a := b; b := n end;
if a < 11 then a := 11;
for i := a to b do
begin
Str(i, s);
n := Length(s); n2 := n div 2; flag := true; j := 1;
repeat
flag := (s[j] = s[n - j + 1]);
j := j + 1
until (not flag) or (j > n2);
if flag then Write(i, ' ')
end;
end.
Тестовое решение:
Введите через пробел границы диапазона: 800 1500
808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999
Объяснение:
