Question

В массиве имеются целые и дробные числа. Подсчитать количество целых и дробных. 9 класс 20 баллов

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('Количество чисел в массиве:');

 var a := ReadArrReal('Вводите числа:', n);

 var Целых := 0;

 for var i := 0 to a.High do

   if Frac(a[i]) = 0 then Inc(Целых);

 Writeln('Целых: ', Целых, ', дробных :', n-Целых)

end.

Пример

Количество чисел в массиве: 7

Вводите числа: 3.5 8 0 -1.14 -12 5.0002 -0.00005

Целых: 3, дробных :4