Program gt; var b:array[1..100000]of real; A:real; i,n:integer; begin read(n); // n- кол-во чисел массива for i:=1 to n do read(b[i]); read(A); //A -заданное число с которым надо сравнить элементы массива for i:=1 to n do if(b[i]>A) then write (b[i],' '); end.
var b:array[1..100000]of real;
A:real;
i,n:integer;
begin
read(n); // n- кол-во чисел массива
for i:=1 to n do
read(b[i]);
read(A); //A -заданное число с которым надо сравнить элементы массива
for i:=1 to n do
if(b[i]>A) then write (b[i],' ');
end.