Имеется массив А из N произвольных чисел А (N), среди которых есть положительные, отрицательные и равные нулю.

Вычислить количество чисел, квадрат которых меньше 10. Так, если А={2,4,-3,3,5,-2,1}, результат: 5 (это числа 2, - 3, 3, - 2, 1).

Var

A : array of real;

i, N, num : integer;

begin

write ('Количество чисел: ') ;

readln (N) ;

SetLength (A, N) ;

for i : = 0 to N - 1 do

begin

write ('A[', i + 1, '] = ') ;

readln (A[i]) ;

end;

num : = 0;

for i : = 0 to N - 1 do

if Sqr (A[i]) < 10 then

Inc (num) ;

writeln ('Таких чисел: ', num) ;

end.