Ответ:

program SplitArray;

var

inputArray: array[1..100] of real;

intArray: array[1..100] of integer;

floatArray: array[1..100] of real;

i, n: integer;

begin

write('Введите элементы массива через пробел: ');

n := 0;

while not eoln do

begin

n := n + 1;

read(inputArray[n]);

end;

for i := 1 to n do

begin

if frac(inputArray[i]) = 0 then

begin

intArray[i] := round(inputArray[i]);

end

else

begin

floatArray[i] := inputArray[i];

end;

end;

writeln('Массив целых чисел:');

for i := 1 to n do

begin

if intArray[i] <> 0 then

write(intArray[i], ' ');

end;

writeln;

writeln('Массив чисел с плавающей точкой:');

for i := 1 to n do

begin

if floatArray[i] <> 0 then

write(floatArray[i]:0:1, ' ');

end;

end.

Объяснение:

Этот код считывает массив чисел, а затем разбивает его на два массива: intArray для целых чисел и floatArray для чисел с плавающей точкой. Результаты выводятся на экран.