Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

uses crt;
var
a:array [1..100] of real;
i,n,k:integer;
begin
write(Введите количество чисел массива: ); read(n);
clrscr;

writeln(Массив:);
for i:=1 to n do
begin
a[i]:=random(21)-10;
if (sqr(a[i])<10) then k:=k+1;
write(a[i], );
end;
writeln;
write(Количество чисел, квадрат которых меньше 10: ,k);
end.