Мы все немного наглые ;)
_________________________
Код:
var
mas:array[1..1000]of real;
new_mas:array[1..1000]of real;
i, j, z:integer;
function RESULT(a:real):boolean;
begin
while frac(a)>0 do begin
a:=a*10;
end;
if trunc(a) mod 10 = 5 then RESULT:=true else RESULT:=false;
end;
begin
read(i);
for j:=1 to i do begin
read(mas[j]);
end;
z:=1;
for j:=1 to i do begin
if RESULT(mas[j])=true then begin
new_mas[z]:=mas[j];
z:=z+1;
end;
end;
writeln;
for j:=1 to z-1 do begin
write(new_mas[j]:5:3,' ');
end;
end.