Имеется массив а из n произвольных чисел а(n), среди которых есть положительные, отрицательные и равные нулю. вычислить количество чисел, квадрат которых меньше 10. так, если а={2,4,–3,3,5,–2,1}, результат: 5 (это числа 2, –3, 3, –2, 1).

146

382

Посмотреть ответы 2

Ответы на вопрос:

tesaf

Информатика

4,7(86 оценок)

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.