Разбейте массив. В Паскале
Ввод Вывод
4 5 5. 1
5 5 5 5
Ответы
Ответ:
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 для чисел с плавающей точкой. Результаты выводятся на экран.