Цитата
const N=30;
var
a:array[1..N] of real;
x:real;
z,i:integer;
Begin
readln(x);
for i:=1 to N do
Begin
readln(a[i]);
if a[i]=x then
z:=z+1
end;
write(z);
end.
var
a:array[1..N] of real;
x:real;
z,i:integer;
Begin
readln(x);
for i:=1 to N do
Begin
readln(a[i]);
if a[i]=x then
z:=z+1
end;
write(z);
end.
Подскажите алгоритм, который сможет сравнить числа с точностью которую задаст юзер.