Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю. Вычислить количество чисел, квадрат которых меньше 10. Так, если А={2,4,–3,3,5,–2,1}, результат: 5 (это числа 2, –3,...
Имеется массив А из 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.
Не нашли ответ?
Похожие вопросы